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Welcome ia the International Apple 
Core* Enclosed is the first mailing to 
member user groups from sour Regional 
Directors» 

I am sour representative to the IAC 
and I can be reached at the above 
address or phone number if sou have ans 
Questions about the organization* 
Upcoming mailings will include such 
things as APPLE AP-NOTES* technical 
hints from user groups* software from 
the APPLE user centribu ted sof twsre bank 
and much more* 

One of the major purposes of the 
IAC is to provide an interface and an 
interaction between the APPLE user 
groups and APPLE COMPUTER INC* A formal 
or gan i za t i on su cIn as the IAC i s the bes t 
w a s t o a c e o m p 1 i s h t h i s p e 1 a t :i. o n s h i p ♦ 


If sou Know of ans other APPLE user 
groups i n s o u r a r e a * p 1 e a s e p a s s o n t h e 
existence of the IAC and have them 
contact me* (a blank application is 
enclosed for this purpose>* We would 
like to see the IAC representing as mans 
A P P L E u s e r g r o u p s a s e o s s :i. b .1. e * 






Dear Member Clubs: 

On March 13 representatives of 60 member clubs met in San 
Francisco to formally initiate the International Apple Core. 
Directors were elected/ lengthy discussions were held, and 
policies were worked out. Directors and officers met for the 
following two days arranging quite a few important details. You 
will recieve a detailed report of the proceedings as soon as 
possible. In the meantime this brief summary should answer many 
of your more common questions. 

The International Apple Core (IAC) will be a non-profit 
organization dedicated to the exchange of information among 
Apple Computer users. This will be broadly interpreted to 
include technical information, software, programming 
information, and anything else which can benefit Apple users 
throughout the world. In addition the IAC will provide for 
communications between members and the various product 
manufacturers. Specific areas of IAC activity will include 
publication of the "Orchard", maintenance of a public-domain 
software library, support of special interest groups, support, of 
software and hardware standards, technical support, promulgation 
of ethics, and organization of annual Apple - faires. 

Being an international organization, the IAC seeks to represent 
Apple users everywhere. Accordingly, the provisional 
constitution and by-laws adopted by the representatives in San 
Francisco allow for two directors from each of four regions in 
the United States (see map). In addition each continent will 
have one director. Since international directors may have 
difficulty attending conferences and meetings in the U.S., they 
may designate a stateside director to communicate with them and 
act as their proxy. Directors serve two - year terms. However 
in the first year one from each region serves a one - year term 
to allow staggered elections. Term length was assigned by coin 
toss. All directors will be elected by the member clubs in 
their areas, on a one-club, one-vote basis. Bach region's 
director's will be contacting members to arrange meetings and a 
representative method of voting. 

The IAC does not intend to have individual memberships. Only 
non-profit Apple user groups may be members. Educational 
institutions and other interested non-profit organizations may 
become associate members. They will be entitled to all the free 
printed information the IAC provides its members, but can not 
vote for directors. Commercial enterprises may become sponsors. 
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entitled to information and participation in standards 
establishment. They, too, would be non-voting, but would 
recieve preferential advertising treatment in IAC publications. 
Dues for members and sponsors will be $50 and $200, 
respectively. They will be collected every January First. 
Associate members pay no dues. 

Officers will be a President, Vice - President, Secretary, and 
Treasurer. To avoid concentration of power, the bylaws provide 
that a director may not also be an officer. Officers are 
appointed by the Board. 

We currently are polishing up the latest draft of the bylaws and 
constitution. After they've been cleared by attorneys every 
member will recieve a copy for comment. After a suitable period 
a final version will be prepared, subjected to approval, and 
submitted to the State of California for incorporation. 

The "Apple Orchard" will be the IAC's official magazine. The 
Board resolved to make the "Orchard" the definitive publication 
on the Apple Computer. To this end, Val Golding has been 
retained as Editor. He will quit his present job to take up 
editing full-time. The Board is also seeking a professional 
publishing house to handle subscriptions, printing, and mailing. 
The next issue will be published September First, with 
subsequent issues following quarterly. The publication rate 
should go up to monthly as we gain experience. Articles should 
be submitted to Val Golding, and should clearly indicate that 
they're for the "Orchard." Preliminary submission deadline for 
the first issue is July First. The "Apple Orchard" will replace 
future editions of "Contact." Unlike "Contact," the "Orchard" 
will be available either by subscription or by sale through 
clubs or stores. Apple Computer Company intends to purchase 
some "Orchards" from the IAC. One copy will be sent to each 
newly - registered Apple owner to tell them about user groups. 

A number of committees and special interest groups were 
established to deal with specific subjects. A list of these 
committees, their chairmen, and their functions is attatched. 
You can contact any of them if you have interest. The IAC will 
try to establish a hot-line for technical and software problems. 
Until permanant arrangements can be made, you will have to 
continue using current lines provided by various clubs and Apple 
Computer, Inc. Neil Lipson's software committee will be 
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collecting, documenting, and distributing a diskette a month to 
the member clubs. These will contain public domain software and 
will be distributed free of charge. The IAC will also 
distribute to members application notes from Apple Computer and 
other suppliers as they are made available to us. 

The IAC's first letter to clubs indicated that the "Source" 
telecommunications network would be made available. For a 

variety of reasons that did not work out as we had hoped. We 
are currently negotiating with the "Source", "Micronet", and 
others to make some form of telecommunications possible. You 
will be notified as soon as something is arranged. 

Obviously a large number of questions are still unanswered. I 

will be trying to get all the information I can to you in the 
near future through various communications. In the meantime any 
of the officers or directors will be more than happy to answer 
your inquiries. Please bear with us over the coming months as 
we put the IAC together and shake out the bugs. Most 

importantly, please communicate with us if you have any 
suggestions about how something should be done, or could be done 
better. This is your club; only you can make it work. 

Regards, 

-' 

''Joe Budger 
Secretary, 

International Apple Core 

jb;JHB 

4 Enclosures 
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DIRECTORS 






MARCH 13, 

1980 

One-Year Termsi 

Two-Year Terms 1 

1 - WEST 


Joe Alinsky 

22240 Wyandotte 

Canoga Park, Calif. 91303 

Fred Wilkinson 

P.0. Box 40031 

San Francisco, Calif. 94110 

(213)-703-1894 

(4l5)-585-2240 

2 - NORTH 


Jon R. Lawrence 

15487 Minock 

Detroit, Mich. 48223 

Harlan G. Felt 

359 Lawton Rd. 

Riverside, Ill, 60546 

(313)-53^-2433 

(312>-447-6267 

3 - SOUTH 


Jerry Vitt 

6906 Waggoner PI. 

Dallas, Tx. 75230 

Scott Knaster 

5425 E. Kentucky Ave. 

Denver, Colo. 80222 

(2l4)-369-7660 

(303)-355-2379 

4 - EAST 


Bernie Urban 

6205 Walholding Rd. 

Washington, D.C. 20016 

Tony Cerreta 

55“A Locust Ave., #4G 

New Rochelle, N.Y. 10801 

(301)-229-3**58 

(91*0-636-3417 

INTERNATIONAL 

7 - AUSTRALIA 

8 - EUROPE 

Neil Bennett 

55 Clarance St. 

Sydney, Australia 2000 

612-293753 

9 - NORTH AMERICA 

Wolfgang Dederichs 

Auf Drenhausen 2 

4320 Hattingen 

West Germany 

02324/67412 

Auby Mandell 

409 Queen St. W. 

Toronto, Ontario 

Canada M5V2A5 


(4l6)-868-l3l5 
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OmfflBBS 

MARCH 13. 1930 


PRESIDENT ! 

Ken Silverman 
3673 Bassett Ct. 

South San Francisco, Calif. 94080 
(4l5)-878-9171 


VICE-PRESIDENT 1 

Michael Weinstock 
64 Pinedale Rd. 
Hauppauge, L.I. 

New York 11 767 

(5l6)-360-0938 


TREASURER ! 

Dave Gordon 
19273 Kenya St. 
Northridge, Calif. 91324 

(213)-384-0579 


SESRmBI* 

Joe Budge 

2507 Elderwood Ln. 

Burlington, N.C. 27215 

(919)-228-6055 
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COMMITTEES * 

The following are the chairmen or organizers of the various 
IAC committees and special interest groups. They are just forming 
and need your participation. Members of member clubs, sponsors, 
and associate members are welcome. If you have any interest 
contact the chairmen directly or through the. IAC. They can tell 
you exactly what the committee is up to. If you wish to form or 
oarticipate in a special interest group not listed here, let the 
IAC know so that a SI3 can be set up. 

Orchard Publication! Val Golding, 6708 30th Ave. S.W., Seattle, 
Wash. 9^136. (206)-932-6588 

IAC Software* Neil Lipson, 29 S. New Ardmore Ave., Broomall, Pa,, 
19008 (215)—356—6183 

New Club Assistance! Dick Sedgewick, 100 Horne St., Dover, N.H. , 
03820 (603)-742-3703 

Constitution & Bylawsi Ken Silverman, c/o International Apple 
Core (415)-S78-9171 

Telecommunications 1 Craig Vaughn, 2633 E, 28th Ave. STE 622, 

Signal Hill, Calif, 90806 (213)-595-6858 TCA 099 

Standards! Mark Robbins, 2726 S. Moline Ct., Aurora, Co. 80014 
(303)-755-6440, (303)-696-0200 

Newsletter Librarian! Major Terry N. Taylor, 12319 E. Bates Circle, 
Aurora, Co., 80014 (303)-750-5813 

Newsletter Exchange Coordinator! David Alpert, 880 Mellody, 

Lake Forest, Ill. (312)-295-6078 

Education SIGi Ted Perry, 5848 Riddio, Citrus Hts., Ca. 95610 
(9l6)-96l-7776 

Handicapped SIGi Bernie Urban, 6205 Walholding Rd., Washington, 
D.C., 20016 (301)-229-3453 

Legal SIGi Butch Clayton, P.0. Box 70278, Charleston Heights, 

S.C., 29405 (803)-884-5370 (803)-554-9l71 

Ham Radio SIGi James E. Hassler, 129 Park Ave., Orchard Valley, 
Cheyenne, Wy. 82001 (307)-632-4934, WB7TRQ on l4.329Mhz 
Sunday Mights at 5, PST. 
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APPLICATION FOR MEMBERSHIP 

Name of Organization*_ 

Class of Membership* ______ 

Mailing Address* 

Street*_______ 

City* _ State *_Zip*_ 

Country*_______ 

(If the above is a post office box, please supply a street address 
below where parcels may be sent*) 


_ 

Officers* 


NAME 


PHONE 


President* _ 

Treasurer*..... 

Editor* _ ... . - ___ 

Other* __!---. 

Terms Expire* _ Copies of "The Apple Orchard" desired 

Number of Members*_ at $ 1.00 each* _ 

Total Remittance Enclosed* ^_ 

- Full membership is available only to Apple User's Groups. A $50.00 
initiation fee must accompany this form. Only full members may 
order the "Orchard" with this form. 

- Applicants for Associate Membership are asked to provide evidence that 
they are a non-profit institution. There is no membership fee. 

- Sponsors* Please indicate the name, position, and telephone number 
of the person in your organization responsible for liason with 

the IAC. The Sponsoring Membership fee is $200.00 
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Dear IAC Member Club: 

At the first annual meeting of the IAC many subjects were discussed like 
special interest groups, by-laws, and information transfer. A full report 
should be forth comming dealing with the meeting. 

I would like to inform you of the outcome of certian subjects in which there 
has been a great deal of concern - those subjects being 1) our publication "The 
Apple Orchard”, 2) Club Dues, 3) The Source, and 4) Software. 

1) "THE APPLE ORCHARD” - It was decided, at this time, to have a quarterly 
issue starting in September of 1980. If it is accepted and is a success it 
could be published every other month. The cost on the news stand will be 
$3.50. The cost to member clubs on a bulk purchase will be $2.00 a copy. If 
an individual subscribes it will be $10 for four issues - or $2.50 a copy. We 
recommend individual subscriptions to speed delivery to the end Apple user. If 
mailed to a club it would take time and money from that club for 
re-distribution. The method in which subscriptions will be handled is 
forthcoming - we are in the process of signing agreements with the publishers. 

2) CLUB DUES - The Board of Directors decided that each member club will pay an 
annual dues of $50. This will start in January of 1981. A new club will still 
pay the $50 initiation fee in addtion to the annual dues. The membership size 
of a club will have no bearing on the dues cost. It is basically a token 
amount so that a club shows an interest in the IAC. The IAC will most likely 
send each club a free software disk each month — this alone makes up the $50 
dues. 

3) THE SOURCE - Originally we informed some of our member clubs that a free 
"Source" account would be forthcoming so that there would be open 
communications between clubs and the IAC. The "Source" has and still is going 
thru some major changes. We are still in contact with them and are in the 
closing stages of an agreement. When the agreement is signed our member clubs 
will be informed. The following is what we hope will come out of the 
negotiations: 

a) IAC Source mail box for clubs to leave messages & 
questions. 

b) Individual accounts for the officers and directors to 
conduct IAC business. 

c) A club account for each member club. The account fee 
($100) would be FREE but there would be monthly billing for 
usage at Source rates. One member would have to be 
responsible for the club account by putting the billing on 
his/her VISA or Master Charge card. Who or how that club 
account is used will be up to the club and the individual 
responsible. In addtion the necessary software to use the 
Source with the Apple will be supplied FREE. All club 
account numbers will be published in the Orchard. 
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4) SOFTWARE - It was agreed that software being supplied by the IAC to 
member clubs will be FREE, even the disk it is supplied on will be FREE. 
We hope to give a "Disk a Month" to each member club. How a member club 
gives it to its membership will be up to them. The programs on each disk 
can not be charged for but a club my charge for the "medium". 
Distribution will be by the Software Committee. 


NOTE: At the meeting in March two disks were given to each Director to be 
given to the clubs in their area. One disk had some new utilities and the 
other was for owners of an Apple II Plus, which contains a good 
mini—assembler and it has a version of INTEGER Basic but it won’t work in 
all program cases. 


I hope this will answer some of your more immediate questions but if you 
still are concerned on any subject please don't hesitate to call me in the 
evening. I can be reached on 415+878-9171 between 5:30 and 10:30PK 
Pacific time. 


Thank You, 

^ksk 

Ken Silveman, 
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TO: Member Clubs 

Sponsors 
Associates 


Dear Members: 

Enclosed you will find the complete minutes of the International 
Apple Core's meetings to date. The first meeting was held in San 
Francisco last October. This was the start-up meeting: all the 
attendees were flown in by Apple Computer and asked to form an 
International Users Organization. After the meeting the various 
officers, directors, and chairmen went to work contacting clubs, 
arranging publication of The Orchard, and drawing up the outline of 
the IAC. The next meeting was held in March, when the representatives 
of member clubs convened. The first regular directors and operating 
officers were elected at this meeting, and most of the IAC's structure 
was worked out. Following the Annual Meeting of the clubs, the new 
Board of Directors met to begin organizing the administration and 
policies of the IAC. A second meeting was held in May to continue this 
organizational work. Most directors were then in Anaheim, California 
as guests of Apple for the unveiling of the Apple III. 

I am sure you will find the minutes of these meetings quite 
interesting and informative. Many of our new members will be learning 
the detailed history of the IAC for the first time. Older members may 
have attended some of these events, but few have attended all. There¬ 
fore, these minutes will explain many details of the IAC which haven't 
yet been generally distributed. 

As always, please feel free to contact your directors or officers 
if you have any questions about this material. 

Regards, 

Joseph H. Budge 
Secretary 

International Apple Core 
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BOARD OF DIRECTORS MEETING 
MINUTES 

Submitted by Ken Silverman - Secretary 

DATE: October 27, 1979 

PLACE: Ramada Inn, San Francisco 

ATTENDIES: See attached list 

The meeting was opened at 9 a.m. by Val Golding of the Apple Puget Sound 
club. Everyone introduced themselves (see list). Opening remarks 
included the reason for the meeting - i.e. the formation of an Inter¬ 
national Apple users group. Interim officers were appointed so that 
the business of forming an organization could be started. The following 
were the results of the appointments: 

President - Val Golding 
Vice President - Neil Lipson 
Secretary - Ken Silverman 
Treasurer - Dave Gordon 

A name for the organization was presented and accepted as the "INTERNATIONAL 
APPLE CORE". 

During the opening remarks and appointments two representatives of the 
Apple Computer Company, Phil Roybal & Jim Hoyt, helped in organization and 
direction. The Apple Corp. was instrumental in calling this group together, 
in fact, they paid to fly the representatives to San Francisco, so that 
this type of organization could be formed. (NOTE: It was talked about 
and confirmed several times during the conference that Apple would help 
only in getting the group started. The organization is to be completely 
independent of all manufacturers and software companies and is responsible 
only to its user membership). 

Many items were presented by attendees and a list of subjects to be 
covered were put on display paper by Phil Roybal so we could detail them 
as needed. Items to be covered: 

I - THIS GROUP 

1- Today 

2- March West Coast Computer Faire 

3- Task Forces 

4- Local user group problems 

II - USER GROUP OBJECTIVES 

1- Funding 

2- Communications 

3- Special interest groups 

4- How to form a user group library 

5- Bylaws and purpose 

6- Local/National user interaction . 



7- Mfg. interface 

8- Membership 

9- Social goald 

III - MARCH MEETING OUTLINE 

1- Attendees 

2- Logistics 

3- Apple Faire 

IV - NON-AGENDA ITEMS 

At this time the items in group II were discussed as items from TODAY in 
group I: 

It was brought up that unless this group could communicate freely in all 
directions it would be difficult to obtain credibility. Communications 
must be open to all member clubs in both directions and to all hardware 
and software companies - so that information can be shared. This will be 
accomplished by the use of the network called the SOURCE. Apple & Joe 
A1insky will get us a free account (not to be abused) for our use. Randy 
Hyde will get the account and user info to member clubs and board members 
as soon as it is approved. 

NOTE: AS THE DAY WENT ON COMMITTEES WERE FORMED AND CHAIRPERSONS 
APPOINTED - SEE ATTACHED LIST. 

At several times during the weekend funding was discussed. In order to 
bring in membership (both clubs and its members) we needed to offer them 
something, a "CARROT". The Apple Corp. said they had a large pile of 
application notes (something like a Woz pak) that they could give out. 

In addition a complete set of all Apple reference manuals, card manuals, etc. 
would also be given. These items and a cover letter by the International 
Apple Core would serve as an inducement for the clubs. The club would 
have to pay a one time initiation fee of $50 to be a member of this 
organization. Apple will mail this package to their complete list (around 
75) of Apple user groups. Bernie Urban said he would look into Federal 
Funds. An annual dues structure would be discussed at the first annual 
meeting after we signed up member clubs. (Dave Gordon - interim Treasurer 
said this would most likely be around $5.00 per person a year). 

The talk of dues and club membership brought up the subject of types of 
membership. Three types were discussed: 

User Group Membership 

Associate Membership - Non-profit & non-voting 
Sponsoring Membership 

The Sponsoring Membership was created for comnercial business like Apple 
Corp. and other manufacturers. It would cost them $1000 a year to be a 
member or if they joined now before the March Faire, $750. For their 
membership they would get the following: 
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Choice of Ad space in publication 

New product feedback 

Application notes 

Member of standards committee 

Publication subscription 

Right of input 

Right of response 

A vote on the standards committee 

A Sponsor would have no vote on the Board of Directors in the organization. 

The associate membership would be for organizations like schools (not non¬ 
profit users groups}. They would have no fee and no vote but would receive 
a copy of the publication and other information whenever possible. 

The SPECIAL INTEREST GROUPS topic was discussed with the end result as we 
would support all of them. This would be more on a local level because 
there are so many of them. A STANDARDS & CONVENTIONS Committee will be 
formed during the March meeting to be held in 1980. The formation of a 
committee to put a CLUB KIT together was completed to be chaired by Dick 
Sedgewick. This committee will compile information on how to start a 
club, a library, set up communications with the International group and 
much more. 

At this time one of the Task Forces was formed. This group would put out 
a major publication to coincide with the West Coast Computer Faire and 
consist of input from all the large clubs via their editors. The publi¬ 
cation is expected to be over 100 pages long and will retail for about 
$5.00 a copy. All member clubs will get copies for their membership for 
$1.00 a copy. This issue will most likely cost over $60,000, over 
50,000 copies will be made, and we hope to bring in $100,000 (see attached 
sheet on newsletter funding). Apple Corp. will also mail a copy to 
everyone on their Apple owner list (they will pay for the copies). Val 
Golding, editor of Call Apple will head this group (see list for other 
members of this committee). All copy for this issue must be in Val's hands 
by December 1st. At this time Larry Wise, of Information Unlimited, who 
was sitting in on the meeting offered copies of the word processor 
"EasyWriter" to each editor on the committee. This was accepted and the 
board in return would like to give Information Unlimited a 1/2 page in 
the publication. Motion was made and carried. Larry thanked the board. 

A discussion of the March meeting was then taken up. It was decided to 
hold our meeting on Thursday before the Friday opening of the Faire (March 
13th). At this meeting votes would be taken on the following: 

Constitution & Bylaws 

New Officers 

Fees 

Committees 

Confirmation of the Board of Directors 

During the Faire, on Saturday, we would summarize the organization and 
have seminars (See list for Faire committee). 



The day was getting on and at this time we listed the committee responsibilities 
Business plan 
Action items 
Expenses - Budget 
Justification of committee 

Each committee was asked to work on the above and to submit as soon as 
possible. 


The meeting adjourned at 4:35. 
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BOARD OF DIRECTORS MEETING 
MINUTES 

Submitted by Ken Silverman - Secretary 

DATE: October 28, 1979 

PLACE: Ramada Inn, San Francisco 

SECOND DAY OF CONFERENCE 

The meeting opened at 9:06 by Val Golding interim President. It was 
stated that most attendees had flights out of San Francisco early. 

The topics for today: 

I - Board of Directors: 

1 - Where to meet 

2 - How is Core to be organized 

3 - How to insure geographical distribution 

4 - Pay board member expenses 

The following is the results of discussions on how the Board Of Directors 
should be formed and who has a vote on that board: 

There will be four regions in the United States - 
North - South - East - West 
These would be divided by: 

The Mason-Dixon line in the South 
The Rockeys in the West 
The Appalachians in the East 

Each region would have two representatives, voted by the members in their 
area, who would serve on the Board of Directors. There also would be two 
representatives from outside of the United States. This gives a total of 
10 votes - these 10 directors then would elect a President of the Core and 
that person would also have a vote on the board. The President would not 
also be an area representative. This gives a total of 11 votes. The 
President and Board would then elect the rest of the officers and committee 
persons. The rest of the officers and committee persons would not have a 
vote on the board. 

The term of office for an area board member would be two years except in 
this first year to start in March 1980. In this first year one of the 
representatives from an area would serve a one year term and the other a two 
year term. This would give the organization continued continuity thru the 
years. The officers, Including the President, and committee person would 
serve a one year term but is re-newable. 

If for apy reason an area representative cannot attend an annual meeting 
they may vote on agenda items by proxy. 



Much more in this area needs to be done and the draft of the bylaws should 
cover most of them. 




Ken Silverman suggested that the International Apple Core logo be a globe 
of the world with a bite taken out and a crescent moon over it - motion 
made and carried - Apple will have their graphic department do drawing. 

Before adjourning the topic of ETHICS was discussed. The following policy 
was adopted by the members present: 

We do not condone the piracy of software. 

No club library will include copyrighted software unless it is 
released for duplication by the author. 

The meeting will be held on Thursday March 13th in San Francisco - time 
and place to be forthcoming. 

If enough monies come in via the clubs and the sponsoring memberships the 
Core will try to pay for the area representatives to fly to the meeting. 

Meeting ended at 11:30 a.m. 
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SPECIAL FAIRE NEWSLETTER FUNDING 


SOURCE 

COPIES 

AMOUNT 

ADs 


$24,000 

Apple Corp 

25,000 

25,000 

SF Apple Core 

1,000 

1,000 

A.P.P.L.E. 

4,000 

4,000 

Applesause 

1,000 

1,000 

ABACUS 

300 

300 

Houston 

400 

400 

N.E.A.T. 

150 

150 

Apple Pie 

250 

250 

Michigan 

250 

250 

Phil a 

150 

150 

Stores 

15,000 

45,000 

Faire 

3,000 

7,500 


45,5K 

$108K 
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SOFTWARE DISSEMINATION 
Plan 1/1 


INFOR TRANSFER 


KIT COMMITTEE 


Neil Upson - Chairman 
Randy Hyde 
Larry Danielson 
Ed Avelar 
Kip Reiner 

Randy Hyde - Chairman 

Bernie Urban 

John Lawrence 

Mat McIntosh 

Mike Weinstock 

Val Golding 

Jim Hoyt 

Ken Silverman 

Dick Sedgewick - Chairman 
Bernie Urban 
Fred Wilkinson 
Bob Collins 
John Lawrence 
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INTERIM OFFICERS & COMMITTEES 




INTERIM OFFICERS 


PRESIDENT 
VICE PRESIDENT 
TREASURER 
SECRETARY 


Val Golding 
Neil Lipson 
Dave Gordon 
Ken Silverman 


INTERIM REGION DIRECTORS 


NORTH 

John Lawrence 

? 

• 

SOUTH 

Bob Collins 

Dewayne VanHoozer 

EAST 

Bernie Urban 

Dick Sedgewick 

WEST 

Fred Ilkinson 

Joe A1insky 

I NT 

Reger Ossie 
? 


COMMITTEES 

NEWSLETTER 

Articles by 12/1 

Van Golding - Chairman 

Ken Silverman 

Randy Hyde 

Ed Avelar 

Mark Crosby (Washington DC) 
Ed Seeger 

THE SOURCE 

Joe A1insky - Chairman 

Craig Vaughn 

Jim Hoyt 

FAIR - LOGISTICS 
Speaker call 11/3 
Budget 12/1 

Schedule 12/1 

Mat McIntosh - Chairman 

Fred Wilkinson 

Dave Gordon 

Phil Roybal 

CONST. & BYLAWS 
Draft 1/30 

Ken Silverman - Chairman 

Jim Hoyt 

CARROT 

Ship 11/15 

Randy Hyde - Chairman 

Jim Hoyt 

BUDGET/FINANCE 

Input 1/1 

To Sec 1/30 

Mail 2/1 

Dave Gordon - Chairman 

Val Golding 

Mike Weinstock 

Rudge Allen 
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PERSONS PRESENT AT 10/27/79 MEETING 


NAME 


ADDRESS 


Ken Silverman 
Neil Llpson 
Kip Reiner 
Jon Lawrence 
Fred Wilkinson 
Joe A1insky 
Dave Gordon 
Gary Koffler 
Bernic Urban 
R. V. Bob Collins 
Dewayne VanHoozer 
Larry Danielson 
Ed Avelar 
Dick Sedgewick 
Matthew McIntosh 
Jim Hoyt 
Val Golding 
Randall Hyde 
Phil Roybal 


3673 Basset Ct. 

29 S. New Ardmore Ave. 
19041-1 Hamlin 
15487 Mlnock 
P. 0. Box 40031 
22240 Wyandotte 
19273 Kenya St. 

13947 Oxnard #109 
6205 Walbonding Rd. 
12502 Bexley 
5310 Lost Forst #154 
5302 Camino Alto Mira 
2850 Jennifer Dr. 

100 Horne St. 

534 Jessie 
10260 Bahdley Dr. 

6708 39th Av. SW 
12804 Magnolia 
1111 Pippin Creek Ct. 


CITY ST ZIP PHONE 


S. San Francisco 

CA 

Broomall 

PA 

Reseda 

CA 

Detroit 

MI 

San Francisco 

CA 

Canoga Park 

CA 

North ridge 

CA 

Van Nuys 

CA 

Washington 

DC 

Houston 

TX 

Houston 

TX 

Castro Valley 

CA 

Castro Valley 

CA 

Dover 

NH 

San Francisco 

CA 

Cupertlno 

CA 

Seattle 

WA 

Chi no 

CA 

San Jose 

CA 


94080 

415+878-5382 

19008 

215+356-6183 

91335 

213+876-6600 x 150 

48223 

313+534-2433 

94110 

415+585-2240 

91303 

213+703-1894 

91324 

213+384-0579 

91401 

213+787-3890 

20016 

301+229-3458 

77099 

713+495-3777 

77292 

713+864-1654 

94546 

415+581-2748 

94546 

415+538-2431 

03820 

603+742-3703 

94101 

415+552-9234 

95030 

408+996-1010 

98136 

206+932-6588 

91710 

714+682-5268 

95120 

408+268-7939 





INTERNATIONAL APPLE CORE 
ANNUAL MEETING OF THE FULL MEMBERSHIP 
MINUTES 

Submitted by Joseph H. Budge - Secretary 
March 13, 1980 


The first Annual Meeting of the Full Membership of the International 
Apple Core, herein after referred to as the “General Meeting", was held 
at 9:00 AM on Thursday, March 13, 1980 in the San Francisco Convention 
Center in San Francisco, California. Mr. Silverman, the interim Secretary, 
was present as the presiding officer. Proceedings were videotaped by Mr. 

A1Insky in lieu of a recording officer. 

ATTENDANCE: 

As the General Meeting does not constitute a deliberative assembly, 
determination of a quorum was not necessary. A list of member clubs 
represented is attached (Appendix I). 

BUSINESS: 


The interim Secretary stated that the areas of representation had 
been reapportioned by the officers to follow state lines instead of 
cutting across states. A map was displayed and approved by the assembly 
(Appendix II). Following this the Secretary showed how the interim 
Board had structured the IAC so that each area would elect Directors who 
in turn would appoint Officers (Appendix III). 

TEMPORARY ADJOURNMENT: 

At 9:30 AM the General Meeting was adjourned for one hour. During 
the temporary adjournment the Full Members caucused to elect Directors. 
Following their election the Directors met to appoint the Officers. The 
General Meeting resumed at 10:30 AM. 

INTRODUCTION OF DIRECTORS AND OFFICERS: 

The elected Directors were introduced and recognized by the assembly. 
The Directors were: 


JOE ALINSKY 
JON LAURENCE 
JERRY VITT 
BERNIE URBAN 
NEIL BENNETT 


FRED WILKINSON 
HARLAN FELT 
SCOn KNASTER 
TONY CERRETA 
WOLFGANG DEDERICHS 


The following officers were appointed to one - year terms by the Board: 
PRESIDENT: KEN SILVERMAN 



VICE PRESIDENT: MICHAEL D. WEINSTOCK 
SECRETARY: JOE BUDGE 
TREASURER: DAVID GORDON 

More detailed descriptions of the Directors and Officers are attached 
(Appendix IV). 

REPORTS OF INTERIM OFFICERS: 

The interim President, Mr. Golding, reported that the original idea of 
the IAC had been to serve Apple user clubs. He was very pleased with the 
results so far and with the way in which the IAC idea had been accepted. 

The first issue of the "Orchard" had been published. As this was a rushed 
issue, he expected future issues to be of even better quality. 

The Treasurer reported that the IAC held $17,000 in cash at the bank. 
His complete report is attached (Appendix V). After discussion it was 
determined that the Treasurer will become bonded. 

The outgoing interim Officers, Mr. Golding, President, and Mr. Lipson, 
Vice President, were thanked for their help and efforts. 

REPORTS OF COMMITTEE CHAIRMEN: 

The Bylaws committee reported that a first draft of the Constitution 
and Bylaws had been prepared. The Constitution spelled out the organization' 
rights and restrictions. It would be used as the Charter in Incorporation 
and therefore would be difficult to change. The Bylaws, on the other hand, 
provided flexibility for the organization. They could be changed under the 
rules set forth for amendment. Both Constitution and Bylaws were put on 
the floor for discussion later during the General Meeting. 

The Software Committee reported that it had organized a tree system for 
the distribution of software. In answer to a question from the floor it was 
explained that the members of all committees at that time were volunteers 
from the first organizational meeting of the IAC. The Software Committee 
did not Intend to distribute every public domain program as there were too 
many. Instead it would try to distribute the best and make available a 
list of who held what public domain programs for exchange purposes. 

The Kit Committee had proceeded towards defining a kit for forming 
clubs. The kit will consist of a sample Constitution and Bylaws, a descrip¬ 
tion of how to start a club, and some software to help start the club's lib¬ 
rary. 

DISCUSSION: 

The majority of the General Meeting consisted of explanation and dis¬ 
cussion of the IAC's organization and operations. These discussions are 
summarized below: 

A large part of the discussion centered around the Constitution and 
Bylaws. The Constitution was explained and left largely unaltered. The 
Bylaws were re-written during the course of the discussion to reflect 
technical improvements and the consensus of the assembly. The Bylaws, as 
so discussed and modified, provide for three categories of membership: 

Full, Associate, and Sponsor. Full members would be clubs and would have 
the only vote. Associates would be non-profit institutions who would 



receive printed matter free. Sponsors would be companies or individuals who 
^ would receive special advertising privileges as well as the normal flow of 
information from the IAC. Business of the IAC would be guided by a Board 
of Directors, of which there were 10 members. Two Directors would come 
from each region of the United States and two would come from outside the 
U.S. (Appendix III). The Directors would elect the Officers to provide 
for the daily operations of the IAC. Other provisions in the Bylaws pro¬ 
vided for amendment and referenda of the membership. It was determined / 

that a final draft of the Constitution and Bylaws was to be prepared. Apple 
Computer's legal staff had volunteered to participate in the drafts' pre¬ 
paration. When reatty, the draft would be sent to all the Full Members for 
additional comments and suggested changes. After final review by the Board 
and addition of final changes, the documents would be used for incorporation 
of the IAC. Additional changes to the Bylaws would then be available under 
their amendment provisions. The entire process was expected to take about 
six months. 

A questioner from the floor asked why the West Coast wasn't receiving 
greater representation since there were more Apple computers there than 
anywhere else. The chair answered that the subject had been extensively 
debated during the first organizational meeting. The participants finally 
decided that it was important to keep any one group from dominating the IAC. 
Therefore the equal representation arrangement was agreed to. The chair 
further pointed out that the Bylaws are open to change by the Board or by 
referendum if this arrangement is too objectionable. 

Distribution of the "Orchard" was then explained. Apple Computer 
had bought 25,000 "Orchards" to send to registered owners on the "Contact" 
list. These were sent free of charge. Unfortunately Apple's mailing list 
only covered about 25% of all Apple owners. To close the gap, the IAC 
printed another 25,000 for distribution through clubs and retail outlets. 

These would be sold to old and new Apple owners alike. Beginning with the 
next issue Apple planned to send each new owner a complimentary copy of 
the "Orchard" by way of Introducing the IAC. Orchards would be available 
to everyone else through subscription, through retail outlets, and through 
clubs. 

It was also explained that Apple Computer, Inc. had sent out the 
package of manuals to every new member in the IAC. These had been provided 
free. However, Apple had announced that the packages would not be provided 
after the General Meeting. The Assembly thanked Apple for the packages 
which had been sent. 

A questioner from the floor asked if "Call-A.P.P.L.E." would be merged 
into the "Orchard". Mr. Golding responded that It definitely would not. 

The editorial contents of the two publications would be entirely different. 

The lAC's dissemination of Information was explained by the Chair. 

Two types of dissemination were planned. One would be the "Orchard", sub¬ 
ject to later approval by the Board, The other type of information would 
be in more specialized forms such as the distribution of software, Apnotes, 
and the like. 

At this point Major Terry Taylor, of Denver Apple PI, asked the audience 
to tell their members to stop sending him copyrighted software. Denver 
Apple Pi maintains a large library of public domain software and an active 
exchange program. Major Taylor's request generated a discussion on public 
domain software and the lAC's role with respect to it. Mr. Upson, Software 
Chairman, said that he hoped IAC software could be donated by member clubs 
and be derived from articles in the "Orchard." While the software was public 
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domain he hoped that clubs would refrain from freely distributing it to non¬ 
members in order to promote the IAC. A member of the audience remarked that 
his club was upset to see its software being freely exchanged around the 
country. This was software the club had exchanged with another club. Fin¬ 
ally another member in the audience commented that public domain software 
was just that: public and open to all. 

The discussion then turned to the alternative types of membership 
available in the IAC. Associate members were envisioned as schools, rehab¬ 
ilitation centers, and other organizations that can't really afford member¬ 
ship, but frequently have Apples and need the information. The IAC hoped 
to provide them with the free information sent to clubs. Sponsors, on the 
other hand, would be manufacturers of software or hardware. They would be 
charged more for membership but would be given some benefits that clubs 
don't need. Advertising preference and mailing lists were cited as examples. 

A question was raised on the floor over the dues that would be charged 
to member clubs. A letter sent to members by interim Officers in February 
had suggested a sliding rate based on club size, with the fee centering 
around $150.00. It was explained that the letter had generated considerable 
response which forced re-examination of the dues structure. The sliding 
rate based on size would promote cheating and dishonesty and was therefore 
not recommended. Furthermore, that dues structure was considered excessive 
and impractical. If all 75 Apple clubs known at that time had joined, dues 
would provide $11,250 in revenues. It was likely that such a high fee would 
scare off many clubs. Software sales were considered for revenue too. But 
if each club paid $10.00 per diskette per month, only $9,000 would be gener¬ 
ated. On the other hand "Orchard" subscriptions and advertising could be 
expected to net $75,000 in the first year. Since it was obvious that the 
IAC wbuld have to depend on the "Orchard" for the majority of its funding, 
the interim Officers planned to recommend that the Board set the dues at a 
nominal figure. $50.00 per year was being discussed. 

A suggestion was made from the floor that the IAC fund grants in Apple - 
related research with any excess funds. This was generally agreeable to all 
and was allowed by the Constitution. Further discussion on the subject was 
not necessary, though, as the IAC had no excess funds at the time. 

APPOINTMENT OF COMMITTEES: 

Several Committees and Special. Interest Groups were established at the 
end of the General Meeting. These committees were open to any volunteers 
willing to do the required job. A full list of the committee chairmen 
appointed at the General Meeting Is attached (Appendix VI). 

An Information Transfer Committee was proposed for the swift dissemination 
of printed information through the IAC clubs. The committee would have been 
a tree for copying and distributing printed matter. It died for lack of 
volunteers, however. Its functions were to be taken over by the Board. 

A Technical Committee was proposed to provide Hot-line type service for 
IAC members. This committee died for lack of a volunteer to chair it. 

The President and Secretary were appointed to the Bylaws Committee. 

The Committee's function would be to finalize the Constitution and Bylaws 
and organize the approval process. 

A Telecommunications Comnittee was established. The Committee s functions 
are to coordinate IAC activities on the different networks, to keep abuses 
down, and to work out ways to exchange information via telecommunications. 



A Standards Committee was established to work on hardware and software 
standards for Apple computers and the manufacturers who provide equipment 
and software for them. 

A Newsletter Librarian was appointed to maintain a file of member club 
newsletters. In addition a Newsletter Exchange Coordinator was appointed 
to facilitate inter-club exchanges. 

Both the Software and Kit Committees were continued. An Annual Meeting 
Committee was discussed. It was decided to leave arrangements for the next 
Annual Meeting to the Board. 

Several Special Interest Groups were established. These were for 
Education. Handicapped, and Legal uses of the Apple. 

ADJOURNMENT: 

The first Annual Meeting of the Full Membership of the International 
Apple Core was adjourned at 3:00 PM. Following Adjournment the club 
representatives present had an opportunity to caucus with their Directors 
prior to the Board Meeting at 3:30 PM. 



INTERNATIONAL APPLE CORE MINUTES 
March 13, 1980 
APPENDIX I 

FULL MEMBERS REPRESENTED 
AT THE ANNUAL MEETING 


ABACUS 

APPLE FOR THE TEACHER 
A.C.E.S. 

MICHIGAN APPLE 

APPLE CORP CANADA 

SAN FRANCISCO APPLE CORE 

PHILADELPHIA APPLE CLUB 

NORTHWEST SUBURBAN APPLE USERS 

BIG APPLE USERS 

DENVER APPLE PI 

APPLE USERS CLUB AUSTRALIA 

APPLE CORPS OF SOUTHERN NEVADA 

APPLE PIE 

CINCINNATI APPLE SIDER 
MARYLAND APPLE CORPS 
APPI F .lAfKS 

BOSTON COMPUTER SOCIETY 
HAAUGG 

SANTA CRUZ APPLE GROUP 
APPLE P.I.E. 

GREEN APPLES 
APP-LE-KATIONS 


HESEA APPLE COMPUTER CLUB 
ADAM II 

WASHINGTON APPLE PI 
ORIGINAL APPLE CORPS 
CAROLINA APPLE CORE 
APPLE T.A.R.T.S. 

MID-HUDSON MICRO USERS 
GROUP MIAMI APPLE 

MIDWAY COMPUTER CLUB 
SCAPPLE 

APPLE USERS GROUP EUROPE 
SUFFOLK APPLE COMPUTER SOCIETY 
6502 USERS GROUP 
THOUSAND OAKS APPLE PI 
NEW ENGLAND APPLE TREE 
NORTH ORANGE COUNTY APPLE CORE 
A.P.P.L.E. - WASHINGTON 
APPLE CORE CANADA 
C.A.C.H.E. 

APPLE PEELERS 
APPLE CREEK 
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INTERNATIONAL APPLE CORE MINUTES 
March 13, 1980 

APPENDIX IV: DIRECTORS AND OFFICERS 


DIRECTORS 


One-Year Terms: 

Two-Year Terms: 

1 - WEST 


Joe A1insky 

22240 Wyandotte 

Canoga Park, California 91303 
(213) 703-1894 

Original Apple Corp. 

Fred Wilkinson 

P. 0. Box 40031 

San Franscisco, California 
(415) 585-2240 

S. F. Apple Core 

2 - NORTH 


Jon R. Lawrence 

15487 Mi nock 

Detroit, Michigan 48223 
(313) 534-2433 

Michigan Apple Club 

Harlan G. Felt 

359 Lawton Rd. 

Riverside, Illinois 60546 
(312) 447-6267 

C.A.C.H.E. 

3 - SOUTH 


Jerry VI tt 

6906 Waggoner PI. 

Dallas, Texas 75230 
(214) 369-7660 

HAAUGG 

Scott Knaster 

5425 E. Kentucky Ave. 
Denver, Colorada 80222 
(303) 355-2379 

Denver Apple Pi 

4 - EAST 


Bernle Urban 

6205 Walhoi ding Rd. 

Washington, D. C. 20016 
(301) 229-3458 

Washington Apple Pi 

Tony Cerreta 

55-A Locust Ave., #4G 

New Rochelle, N.Y. 10801 
(914) 636-3417 

Big Apple Users Group 


INTERNATIONAL 


7 - AUSTRALIA 

Neil Bennett 
55 Clarance St. 

Sydney, Australia 2000 
612-293753 

Apple Users Club Australia 
9 - NORTH AMERICA 

Auby Mandell - Apple Core of Canada 
409 Queen St. W. 

Toronto, Ontario 
Canada M5V2A5 
(416) 868-1315 


8 - EUROPE 

Wolfgang Dederichs 
Auf Drenhausen 2 
4320 Hattingen 
West Germany 
02324/67412 

Apple Users Group Europe 
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OFFICERS 




March 13, 1980 


PRESIDENT : 

Ken Silverman 
3673 Bassett Ct. 

South San Francisco, California 94080 

(415) 878-9171 

San Francisco Apple Core 

VICE-PRESIDENT : 

Michael Welnstock 
64 Pinedale Rd. 

Hauppauge, L. I. 

New York 11767 
(516) 360-0988 
Big Apple Users Group 

TREASURER : 

Dave Gordon 
19273 Kenya St. 

Northridge, California 91324 
(213) 384-0579 
Original Apple Corp. 

SECRETARY : 

Joe Budge 

2507 Elderwood Lane 
Burlington, N. C. 27215 
(919) 229-6037 
Carolina Apple Core 
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INTERNATIONAL APPLE CORE MINUTES 
March 13, 1980 

APPENDIX V: TREASURER'S REPORT 

RECAP OF ACTIVITIES 
THRU 3-9-80 


INCOME 

DUES 

ORCHARD SALES 
ADVERTISING-RECEIVED 
ADVERTISING-A/R (MEMO) $25,675.00 




TOTAL RECEIPTS 


EXPENSES 

PRINTING 

FREIGHT 

0/S LABOR, EXPENSES 

RENTAL 

REFUND 


$29,730.29 

1,100.00 

2,494.54 

875.00 

800.00 


TOTAL EXPENSES 


NET PROFIT (BANK BALANCE 3-9-80) 




$ 3,250.00 
30,250.00 
18,575.00 


$52,075.00 


$34,999.83 


$17,075.17 
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CASH DISBURSEMENTS 

THRU 3-9-80 O 


CHECK 

# 

PAYEE 

DATE 

DESCRIPTION 

AMOUNT 

1A 

Michael Weinstook 

12/8 

Expenses 

$ 136.00 

IB 

Carlos Printing 

2/2 

Printing 

10,000.00 

2 

Ken Silverman 

12/14 

Exp-P.C.Fund 

330.43 


B.S.C. 

Jan. 


4.20 

1001 

S. F. Apple Core 

1/15 

Refund-Orchard 

800.00 

1002 

Matt McIntosh 

1/25 

Expenses 

22.50 

1003 

Mike Weinstock 

1/25 

Expenses 

171.81 

1004 

Matt McIntosh 

1/25 

Expenses 

23.05 

1005 

Carlos Printing 

1/29 

Printing 

9,000.00 

1006 

Mike Weinstock 

2/15 

Expenses 

371.62 

1007 

Carlos Printing 

2/12 

Printing 

10,730.29 

1008 

Computer Faire 

2/12 

Meeting Room 

800.00 

1009 

Val Golding 

2/12 

Expenses 

43.45 

1010 

Patricia Boner 

2/12 

Expenses 

45.77 

1011 

Call Apple 

2/12 

Expenses 

35.00 

1012 

Patricia Boner 

3/1 

0/S Labor-Exp. 

763.65 

1013 

Matt McIntosh 

3/1 

Rental-Advent 

75.00 

1014 

Val Golding 

3/4 

Freight 

545.00 

Wire 

Val Golding 

2/27 

Freight 

556.50 


B.S.C. 

Feb. 

Checks 

16.34 

1015 

Matt McIntosh 

3/9 

Expenses 

30.35 

1016 

Patricia Boner 

3/9 

Expenses 

147.51 

1017 

Ken Silverman 

3/9 

Expenses 

351.36 


TOTAL 



$ 34,999.83 

RECAP 





Printing $29,730.29 




Freight 

1,100.00 




0/S Labor-Expenses 2,494.54 




Rental 

875.00 




Refund 

800.00 




TOTAL $34,999.83 
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INTERNATIONAL APPLE CORE MINUTES 
March 13, 1980 

APPENDIX VI: COMMITTEE CHAIRMEN APPOINTED AT THE GENERAL MEETING 




Orchard Publication: Val Golding, 6708 39th Ave. S. W., Seattle, Wash. 

98136. (206) 932-6588 

IAC Software: Neil Lipson, 29 S. New Ardmore Avd., Broomall, Pa., 19008 
(215) 356-6183 

New Club Assistance: Dick Sedgewick, 100 Horne St., Dover, N.H., 03820 
(603) 742-3703 

Constitution and Bylaws: Ken Silverman, c/o International Apple Core 
(415) 878-9171 

Telecommunications: Craig Vaughn, 3450 E. Spring St., Suite 206, Long Beach, 
Calif. 90806 (213) 595-6858 TCA 099 

Standards: Mark Robbins, 2726 S. Moline Ct., Aurora, Co. 80014 
^ (303) 755-6440, (303) 696-0200 

Newsletter Librarian: Major Terry N. Taylor, 12319 E. Bates Circle, 

Aurora, Co., 80014 (303) 750-5813 

Newsletter Exchange Coordinator: David Alpert, 880 Mellody, Lake Forest, 

Ill. (312) 295-6078 

Education SIG: Ted Perry, 5848 Riddio, Citrus Hts., Ca. 95610 (916) 961-7776 

Handicapped SIG: Bernie Urban, 6205 Walholding Rd., Washington, D. C. 20016 
(301) 229-3458 

Legal SIG: Butch Clayton, P. 0. Box 70278, Charleston Heights, S. C. 29405 
(803) 884-5370, (803) 554-9171 
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INTERNATIONAL APPLE CORE 
BOARD OF DIRECTORS 
MINUTES OF THE ANNUAL BOARD MEETING 
Submitted by Joseph H, Budge - Secretary 
March 13, 1980 


FIRST SESSION 


The first Annual Meeting of the Board of Directors of the International 
Apple Core was held at 11:00 AM on Thursday, March 13, 1980 at the San 
Francisco Convention Center in San Francisco, California. This meeting was 
held during an adjournment of the General Annual Meeting of the International 
Apple Core (IAC). Mr. Cerreta presided and Mr. Urban took the record. No 
minutes were read. 

QUORUM: 

A quorum was determined to be present. Voting members present were 
Messrs. All insky, Wilkinson, Lawrence, Felt, Vitt, Knaster, Urban, Cerreta, 
Bennett, and Dederichs. No non-voting members were present. 

BUSINESS: 

After discussion the Board elected the following officers to one-year 
terms: 

President: Ken Silverman 
Vice-President: Michael D. Weinstock 
Secretary: Joe Budge 
Treasurer: Dave Gordon 

ADJOURNMENT: 

In deference to the General Meeting, the first session of the Annual 
Meeting of the Board of Directors was adjourned until the General Meeting was 
finished. 


SECOND SESSION 

The second session of the Annual Meeting of the Board of Directors of 
the International Apple Core was held at 3:30 PM on Thursday, March 13, 1980 
at the San Francisco Convention Center In San Francisco, California. This 
meeting immediately followed the first General Annual Meeting of the IAC. 

The President and Secretary were present as presiding and recording officers, 
respectively. Minutes of the previous board meeting having been read at 
the General Meeting, no minutes were read at this meeting. 
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QUORUM: 


A quorum was determined to be present. Voting members present consisted 
of Messrs. Alinsky, Wilkinson, Lawrence, Felt, Vitt, Knaster, Urban, Cerreta, 
Bennett, Dederichs, and Silverman. Other persons present but not voting 
consisted of Messrs. Gordon, Weinstock, Golding, and Budge. 

BUSINESS: 

Mr. Golding presented an editor's proposal to the Board for future 
issues of the "Apple Orchard." The Board discussed searching for other 
editorial candidates, but decided to work with Mr. Golding. This was done 
to allow continued publication of the "Orchard." Concern was expressed that 
Mr. Golding would have a conflict of interest between the "Orchard" and 
"Call-A.P.P.L.E." Mr. Golding stated that, due to the differing editorial 
contents of the two magazines, he didn't think the problem would occur. The 
Board decided that all articles would be submitted via the IAC Post Office 
Box and stamped "For Orchard Only." Specifics of Mr. Golding's proposal 
were then discussed. The Board shortened the term of the proposal to 18 
months, specified publication dates, and tightened the Editor's accounting 
requirements. As these changes were acceptable to Mr. Golding, the proposal 
was unanimously approved as amended. 

The "Orchard's" editorial content was briefly discussed. Everyone felt 
that the "Orchard" should be the definitive publication for Apple computers. 

It was suggested that it be made a journal of only new Apple-related articles. 
Mr. Golding stated that he intended to include those articles as well as 
reprint the best of articles from club newsletters and apnotes. This was 
agreeable to all. 

Mr. Golding then proposed that the IAC seek a professional publication 
firm to put out the "Orchard." He felt that such a firm could do a better 
printing job, handle subscriptions, advertising, typesetting, and mailing. 

While this proposal was generally agreeable, the Board expressed concern 
that insufficient financial information was available to adequately judge 
the publisher's proposal. Additional concern was expressed that the publishing 
house could not handle the specialized form of advertising. It was agreed 
that Mr. Golding would seek a more specific proposal from the publisher while 
Mr. Weinstock would seek qualified candidates for the position of advertising 
manager. The prospective advertising manager would be offered no more than 
10% of the advertising revenues. The Board agreed to study the proposal further 
when more information becomes available. 

At the request of the international Directors the problem of international 
representation was discussed. It was felt that two international Directors 
was an inadequate number. Therefore, the proposed Bylaws were amended to 
allow one Director from each continent with the exception of Antarctica. The 
amendment was unanimously adopted. Mr. Mandell was recognized as the Director 
from the North American Region (Region 9). (See Appendix I). 

As discussed during the General Meeting, the international Directors 
expressed interest in having U. S. Directors represent their interests at 
future meetings and communicate with them in the interim. This was agreeable 
to all. Mr. Cerreta agreed to communicate with Europe, Mr. Vitt with Mexico, 
and Mr. Urban with Canada. Australia would represent itself as Mr. Bennett 
would be in the U. S. frequently. 



Mr. Dederichs showed the Board a catalog his club had made of Apple- 
related hardware. He suggested that the IAC might wish to distribute the 
catalog once it was translated to English from German. No action was taken. 

ADJOURNMENT: 

As it was late, the second session of the meeting was adjourned at 5:10 
until the following night. 


THIRD SESSION - MARCH 14, 1980 


The third session of the Annual Meeting of the Board of Directors of 
the International Apple Core was held at 7:00 PM on Friday, March 14, 1980 
at the Holiday Inn, San Francisco, California. The President was present as 
presiding officer; Mr. Randy Fields was present in place of the Secretary as 
recording officer. Minutes of the previous meeting were not read. 

QUORUM: I 

A quorum was determined to be present. It consisted of Messrs. A1insky, 
Wilkinson, Lawrence, Felt, Vitt, Knaster, Urban, Cerreta, Bennett, Dederichs, 
Mandell, and Silverman. Other persons present but not voting consisted of 
Messrs. Gordon, Weinstock, Lipson, Vaughn, and Fields. 

BUSINESS: 

It was decided that Mr. Weinstock will call D. C. Hayes to obtain five 
Micromodems at cost or for trade in advertising. These will be made avail¬ 
able to Directors and Officers who do not own modems. The Modems may be 
either lent or purchased at cost from the IAC. 

After discussion the Board determined that the IAC will make no endorse¬ 
ments for products. If equipment is needed by the IAC it will trade advertising 
for equipment or services. 

An Information Transfer Committee was established. The Committee will 
consist of the Directors who will get information (Apnotes, etc.) from the 
Secretary. Directors will then make copies and pass them on to the clubs In 
their areas. Directors in an area will work out an arrangement between them¬ 
selves and inform the President of the methods they will use. Directors 
will receive a $100 fund to be used for phone calls and mailing of information. 
The Directors will send in all receipts to the Treasurer before receiving 
another $100. Directors are to prepare a budget for submission to the 
Treasurer next quarter. 

The duration of term of the new Directors, one year or two, was decided 
by the President with the flip of a coin. Messrs. Cerreta, Wilkinson, Felt, 
and Knaster will serve for two years while Messrs. A1Insky, Urban, Lawrence, 
and Vitt will serve for one year. All International Directors will serve for i 
two years. 

The Board decided to hold the next Annual Meeting in either Boston, 
Washington, D. C., or Chicago. Directors in the above areas will obtain more 
information about the local Faires and report back for a decision by the 
Board in the near future. 

It was announced that the IAC represents about 8,000 individuals through 
its member clubs. All Directors will try to get more clubs to join. 



It was determined that the Vice-President will coordinate the writing 
and sending of a PR release to all magazines. 

After discussion it was decided to delay the installation of an 800 
number or "Hot Line". Lack of experts and volunteers to answer questions were 
cited as the primary reasons. 

The President asked for, and obtained, permission to add a new phone 
line to his house for the IAC. It was agreed that Mr. Gordon will obtain Sprint 
codes and numbers for all the officers and Directors. Billing will go to the 
Treasurer who will notify the President of abuses. 

Mr. Lipson asked about mugs and other specialty items to sell. After 
discussion it was agreed to make a small amount for a test at a Faire where 
the IAC would have a booth. 

After a long discussion it was motioned and passed to send each member 
club no more than one diskette each month with software. The diskette will 
be provided completely free of charge. The production rate will depend on 
supply: diskettes may not be produced as frequently as once a month unless 
incoming software is bug free and documented. 

It was determined that Mr. Vaughn will assist with standards for 
documentation. 

Use of the Source timesharing network was discussed. The IAC has an 
account provided at no cost for Officers and Directors. This account may 
not be used during prime time, as the IAC will be billed for such use. 

File storage will not be free; again the IAC will be billed. Use of file 

storage must therefore receive prior approval by the President. Negotiations 
are proceeding to obtain accounts for member clubs. The IAC will attempt to 

obtain for member clubs a waiver of the sign on charge (currently $100). The 

clubs would still be billed for their own use, however. Mr. Vaughn announced 
that Peripherals Unlimited will give all Directors and Officers a copy of the 
Source sign-on program in exchange for the $200 sponsoring fee. This was 
agreed to by the Board. 

Mr. Weinstock announced that he had obtained fifteen free accounts for 
IAC use on Micronet. These accounts are also for Directors and Officers. 

They will be used for local club type mail in both directions. Mr. Weinstock 
will send all information to the Directors and Officers. 

The Directors determined to work out a plan for voting in their region 
by member clubs. That plan is to be written up and given to the IAC Secretary. 
This will allow new clubs joining in an area to learn how to vote and how to 
contact their directors. International as well as national Directors will 
prepare such plans. 

It was determined that the IAC will look into assembling an Apple 
training program. Mr. Urban and Mr. Fields will work on the project. This 
will take a great deal of time. It is hoped to have a concrete outline and 
plan in time for the next Annual Meeting. 

After discussion it was determined that outgoing Directors will not be 
paid to attend an Annual Meeting. When a new Director is voted into the 
Corporation the Secretary is to be notified as soon as possible. 

Full Member dues per year were set at $50.00 independent of membership 
size. This is a nominal fee as it doesn't even cover the price of the 
monthly diskettes. The dues will be payable in January 1981. If a club 
joins this year it will pay only a $50.00 initiation fee. Next year it will 
pay both the initiation fee and the dues for that year, a total of $100. 

Sponsoring membership dues were set at $200.00 per year. Membership, 
once paid, will be valid for a full 12 months from the date of payment. 



ADJOURNMENT: 

The first Annual Meeting of the Board of Directors of the International 
Apple Core was adjourned at 10:00 PM. 
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INTERNATIONAL APPLE CORE 
BOARD OF DIRECTORS 
MINUTES OF A SPECIAL MEETING 
Submitted by Joseph H. Budge - Secretary 
May 19, 1980 


A special meeting of the Board of Directors of the International Apple 
Core (IAC) was held at 4:35 PM on Monday, May 19, 1980 in the conference 
room of the Sunshine Restaurant in Anaheim, California. The President and 
Secretary were present as presiding and recording officers, respectively. 
Synopses of the minutes from the previous Board meetings were read. Approval 
was deferred. 

QUORUM: 

A quorum was determined to be present. Voting members present consisted 
of Messrs. Allnsky, Urban, Wilkinson, Felt, Vitt, Mandell, Knaster, and Silver- 
man. Those present but not voting consisted of Messrs. Gordon, Weinstock, 
Vaughn, Golding, and Budge. 

REPORTS OF OFFICERS: 

The President reported that organization of the IAC was proceeding 
according to plan. 

The Vice President reported that tasks identified for him in the pre¬ 
vious Board meeting had been accomplished. Five D. C. Hayes Micromodems 
had been obtained in exchange for advertising. Three had been resold to 
Officers or Directors. Micronet hookups had been finalized and obtained 
for the Directors and Officers. 

The Secretary reported that the IAC files and records had been organized, 
that three mass mailings had been produced, and that club correspondence had 
been handled. 

The Treasurer reported that the IAC held $26,000 in net cash, $10,000 of 
this was in a time deposit savings account which had been opened. Receivables 
consisted of $8,800 of unpaid Orchard ads and $4,000 of unpaid Orchard sales. 
19,000 Orchards remained unsold, representing another potential $19,000 in 
future revenues. The Treasurer reported that he had tried to determine a 
budget for the IAC but had dropped the attempt because no historical data 
were available yet. The President proposed that, until a full-time book¬ 
keeper was hired, the Treasurer's report be produced quarterly instead of 
monthly. The motion was unanimously approved. 

REPORTS OF DIRECTORS: 

Mr. Urban reported that he had written every club in the Eastern area 
in attempting to organize an area caucus. In a month he had received no 
responses, merely some calls with comments on IAC service. 

Mr. Wilkinson reported that he had telephoned most clubs in his portion 
of Area 1. No response had been generated towards developing an area caucus 



because no one had had time to think about it. He also reported that the 

mailings had been onerous. {***) 

Mr. A1insky agreed with the previous reports. He found that clubs came 
to him mostly with questions about what the IAC should be doing. 

Mr. Vitt reported that he had visited with 17 clubs in his area. He had 
found personal contact with the clubs very helpful. 

Mr. Felt reported that he had contacted clubs in his area and attended 
many meetings. He requested that Directors be reimbursed for expenses incurred 
in travelling to club meetings. In addition he reported that he had talked 
with many dealers in his region and had sent each a letter requesting support 
for the IAC. He suggested that each director send a similar letter in each 
area. The Secretary will provide a copy to all Directors. 

BUSINESS: 

A postage machine was proposed for use in mailings. After discussion the 
proposal was dropped as impractical and expensive. 

A question was raised over the propriety of Directors or Officers con¬ 
ducting business with the IAC. After discussion it was decided that no current 
action was necessary, as no abuses were evident. All motions on the floor were 
removed. It was understood that the Treasurer's regular report would provide 
the proper checks on potential abuses. It was further understood, but not 
mandated, that all officers would be consulted prior to possible conflicts of 
interest. 

A motion was made that any outgoing Directors, not re-elected by their 
regions be flown to the Annual Meetings as well as the Directors - elect. The 
motion was seconded and passed, reversing the decision made at the previous /■**% 

meeting of the Board. 

In view of the Directors' lack of success in organizing area caucuses, it 
was proposed that the Board include election procedures in the Bylaws. After 
discussion a committee of two-year Directors was appointed. The committee 
will report their recommended Bylaws additions by June 30. The proposal and 
committee were approved with no negative votes and one abstention. 

Concern was expressed over the large number of "Orchards" which remained 
unsold. It was reported that solicitation letters to dealers had just been 
mailed, so inadequate time had passed for a response. It was suggested that 
if clubs found that they had too many copies on hand the copies could pro¬ 
bably be sold to local dealers. No action was taken. 

The President showed samples of airbrushed IAC Tee-shirts which had been 
mentioned at the previous Board meeting. After pointing out that their 
quality was inadequate under the IAC's pending trademark agreement with Apple 
Computer, Inc., adoption of these Tee-shirts was unanimously vetoed. 

A motion was made that the President and Treasurer be empowered to sign 
legal documents on behalf of the IAC. After discussion the motion was amended 
to: "All officers are empowered to enter into contractual agreements on behalf 
of the International Apple Core." It was stipulated that the resolution was 
subject to final and appropriate wording by legal counsel. The motion as so 
amended and stipulated was passed by a 6-1 vote. 

The President was specifically authorized to sign checks for the IAC in 
the event that the Treasurer could not. 

The time and place for the next annual meeting was discussed. As persons 
delegated to study the Boston and Chicago sites were not present at the meeting, 
their reports were not available. After discussion the Board dropped Philadel- ' S| 
phia and Washington as possible sites and favored Boston. It was determined 
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that Messrs. Urban and Cerretta will coordinate investigation of the Boston 
site and Messrs. Felt and Lawrence will do the same for the Chicago site. 

The President directed that the chosen site must have a club and person re¬ 
sponsible for organizing the IAC meetings and booths. The meetings will be 
held for two days prior to the associated convention; one day for the General 
Meeting and one day for the Director's Meeting. 

Mail and communications standards for the IAC were discussed. The Sec¬ 
retary will provide the necessary letterhead and envelopes. 

A motion was made that all mass mailings to clubs be made through a 
central service. The service would alleviate Directors from the burdens of 
mass mailings and would Insure that all clubs would receive mailings more or 
less simultaneously. The service would also mall software. After discussion 
the motion was approved. The Board directed the secretary to pre-announce 
all mailings and their contents via telecommunications. The Directors and 
Officers would then have the opportunity to draft cover letters and transmit 
them to the Secretary for inclusion in mailings to their constituency. 

A motion was made that the IAC make available extra copies of Apnotes and 
other appropriate materials in bulk and at cost to member clubs. It was felt 
that clubs could make their own copies. The motion was unanimously defeated. 

The Secretary was directed to obtain from all clubs the times and places 
of their regular meetings so that the Directors may attend. 

Grawin Publications proposal for publication and advertising management 
of the "Orchard" was put on the floor for discussion. Concern was expressed 
on two points: First that Grawin's advertising proposal appeared unrealistic, 
and secondly that no alternative proposals were available for competitive 
evaluation. After discussion it was moved, seconded, and passed that the IAC 
contract with Grawin to publish and organize advertising for no more than 
three issues of the "Orchard" while a coumittee investigated alternatives. 

' Mr. A1insky and Mr. Weinstock were appointed to the Publication Committee. 

The Committee was charged to look at publishers, advertising managers, and 
all aspects of publication. The Committee Is to provide cost and revenue 
analyses of alternative methods of publication and of generating advertising. 
If a publisher other than Grawin is eventually selected, suitable arrangements 
for communications between publisher and editor must be feasible. The pre¬ 
liminary report of the Publication Committee must be submitted by the time 
of publication of the next Orchard (September 1, 1980). Mr. Golding recom¬ 
mended that, for logistical purposes, a decision on a future publication 
agreement should be made by the time that the third issue of the "Orchard" 
goes to press. 

It was motioned that the Secretary be provided a tie line for local 
linkage to the telecommunications networks. After discussion this was deemed 
to be an operating decision best left to the Officers. 

ADJOURNMENT: 

The special meeting of the Board of Directors of the International Apple 
Core was adjourned at 10:00 PM. 
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INTERNATIONAL 
APPLE CORE 


April 15, 1980 


Members 1 


The International Apple Core is pleased to enclose its first 
issue of application notes. You will findt 

- A list of known bugs in Pascal 
r A fixed quick input routine 

- A fix for the Append command in DOS 3.2 

- A list of the graphics entry points in Applesoft 

- A keyboard modification that allows some extra characters 

I recommend that you prepare a three ring binder to hold these 
and future application notes. Many more Apnotes will be forthcoming. 
In addition to new ones, Apple Computer has forwarded their entire 
package of Apnotes. Clubs joining the IAC prior to 3/13/80 
recieved this package in rough form. We will be cleaning them up 
and republishing them as time permits. I currently am working 
to classify the Apnotes in a sensible fashion. 


Regards, 

^Joe Budgd'T 
Secretary 


PO.BOX 9T6 DMY CITY, CALIFORNIA 94017 









INTERNATIONAL 
APPLE CORE 


APNOTES 


Prom time to time the International Apple Core will 
distribute application notes to our members. Application 
notes are technical corrections or improvements to Apple 
Computers or their software. Usually application notes address 
themselves to specific problems. Since other users share the 
same problems, we will make every effort to publish then on 
a timely basis. 

The International Apple Core solicits interested users 
and manufacturers to submit application notesfor publication. 
Appropriate subjects might bei 

-Hardware modifications to fix a design error 

-Hardware modifications to upgrade a system 

-Software patches 

-Software modifications to upgrade a program 

-Modifications to existing software/hardware 
that add new features to the Apple Computer 
system. 

-Notification of bugs and the conditions under 
which they occur. 

-Documentation to previously undocumented hardware 
or software 

Application notes are not restricted to Apple Computer Company's 
products. They may apply to anyone's, provided they will be of 
interest to Apple users. 

To expedite application note publication, we ask you to 
submit notes in publishable form. This is not a requirement. We 
feel it is more important to have an Apnote in any shape than to 
have a spiffy document. If you lack time or facilities the IAC 
will prepare final drafts for you. Publishable form means that 
text will be typed on white paper, preferably with a dark ribbon. 
Single space and use a readable character size. Page margins 
are 7.25 inches by 9.0 inches. Drawings should be neat and 
ledgible. The closer you can approximate this, the faster the 
Apnote can be published. Purley textual Apnotes can also be 
submitted in text files on diskette. Mail them toi 

Apnotes 

International Apple Core 

P.0, Box 976 

Daly City, Calif. 9^017 

If you wish to assist in the review and "cleaning up" 
of Apnotes send us a note or call the IAC Secretary. 

RO.BOX 976 CAL/CUY, CALIFORNIA 94017 
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TM 
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STAKING THE WILD "L" 


OF THE % STANDARD ASCII UPPER CASE AND CONTROL CHARACTERS, THE APPLE KEYBOARD CAN GENERATE ALl BUT 5. NAMELY, 
"C" (IDB), (IDO, (IDF), AND CONTROL CHARACTERS FS (ISC) AND US ■(13F) WHO CARES? WELL CERTAIN FANATICS 
CAN'T STAND FOR THEIR APPLES TO BE LESS TWIN PERFECT. AT EVERY OPPORTUNITY THEY “IMPROVE" THEIR MACHINES BY ADDING 
LOWER CASE ADAPTERS AND SHELLING OUT 5 BIG ONES FOR THAT LAST 16K RAM. NOTHING CAN STAND IN THE WAY OF THEIR QUEST FOR 
THE ULTIMATE APPLE. 


THE KEYBOARD SHORTCOMING HIS LONG BEEN A THORN IN THE SIDE OF THESE APPLE ADDICTS AND VARIOUS CRUTCHES HAVE BEEN 
DEVELOPED. AFFLE30FT CHRI ALLOWS PRINTING OF THESE CHARACTERS—TACKY AND INCOMPLETE. ONE CAN TRAP AND MODIFY VARIOUS 
CONTROL CHARACTERS IN A SPECIAL KEYBOARD INPUT ROUTINE, BUT THEN THE CONTROL CHARACTERS JUST TRAPPED CAN'T BE USED- 
HOT ELEGANT. THE SOLUTION INVOLVES HARDWARE MODIFICATIONS SO CRANK IP THOSE SOLDERING IRONS OUT THERE KIDDIES—HERE 
IT COMES. 


THE L, K, AND 0 KEYS ON APPLE KEYBOARD WE MERELY CONNECTED ACROSS THE WRONG MATRIX FINS ON THE NATIONAL SEMI 
MM5740 KEYBOARD ENCODER (NOT REALLY WRONG, JUST NOT THE BEST CHOICE, PERHAPS, SEE FIGURE 1). THESE KEYS ARE CURRENTLY 
CONNECTED AS FOLLOWS 


K CONNECTS X4 TO V9, 

L CONNECTS X4 TO Y8, 

0 CONNECTS XS TO ». 

THE IMPROVEMENT IS AS FOLLOWS. 

K CONNECTS X4 TO Y4, 

L CONNECTS X4 TO V5, 

0 CONNECTS X4 TO Y3. 

WITH THIS STRAIGHT FORWARD CHANGE, SHIFT-K GENERATES t", SHIFT-L GENERATES "V, SHIFT-0 GENERATES V, CONTROL-SHIFT-L 
GENERATES FS, AND CONTROL-SHIFT-O GENERATES US (CONTROL-SHIFT-K GENERATES ESC). 

THE MODIFICATION IS DELICATE AND VOIDS TIC WRRANTV, BUT IS GUARANTEED TO PROVIDE GREAT RELIEF FOR MANY HARDWARE 
FREAKS CRAVING SUCH A FIX INSTRUMENTS REQUIRED FOR THE OPERATION ARE SOLDERING IRON, SOLDER, 4 SHORT LENGTHS OF 
HOOKUP OR WIRE-WRAP WIRE, SOLDER-WICK OR SOLDER-SUCKER, X-ACTO KNIFE, #2 PHILLIPS SCREWDRIVER, STEADY HANDS, AND 
PATIENCE. 

FIRST REMOVE KEVBCARD FROM APPLE TIC K, L, AND 0 KEYS MUST NOW BE REMOVED FROM TIC APPLE TO ALLOW ACCESS TO 
CIRCUIT TRACES BENEATH THEM. CAREFULLY REMOVE ALL SOLDER FROM THE KEYSWITCH TERMINALS AS THEY ARE FRAGILE AND MUST NOT 
BE FORCED OUT. CUT THREE TRACES AS SHOW IN FIGURE 2. SOLDER SWITCHES BACK IN PLACE. CUT OIC TRACE ON BACK OF 
KEYBOARD AND ADD 4 JUMPERS AS SHOW IN FIGURE 1. IF YOUR KEYBOARD TRACES DON'T FOLLOW THE PATTERN OF FIGURES 2 AND 3 
(NEWER VERSIONS DO NOT), VERIFY CONTINUITY FROM SWITCH TERMINALS DIRECTLY TO THE X4, V2, V4, AND VS PINS ON THE 
KEYBOARD ENCODER. REASSEMBLE APPLE RND PUT YOU? TOOLS AWAY. THAT'S IT! 


YOU MAY NEVER ICED YOUR NEW CHARACTERS, BUT DON'T YOU FEEL MORE SECURE JUST KNOWING THEY'RE THERE 

FIGURE 1. SCHEMATIC OF APPLE KEVBCARD SHOWING MODIFICATION TO PRINT * ", “ AND " ", (ADAFTED FROM APPLE II 
REFERENCE MANUAL, PAGE i8t ) 


FIGURE 2. VIEW UNDER K. L, AND 0 KEYS. 
FIGURE 1 VIEW UF BACK' SIDE OF KEYBOARD. 


DAVID HUDSON 
15 DECEMBER 19?? 


A6-L 

This application not# hat boon provided by art Apple Computer tttar. Tha International Apple Coro 
doat not Guarantee the accuracy of this Information In any way end cautions that modlfieatlona may 
void a manufacturer's warranty. Apple 11, Applesoft, and Apple Computer are trademarks of Apple 
Computer Company, Ine. 
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CAOTlON: IF YOU HOOK THIS OP WRONG AUD APPLY 

Power, you cam Kiss your Keyboard encoder goodbye. 
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APPLESOFT HIRES ROUTINES 




■ 


These are the entry points to program machine level high resolution 
graphics with the routines in ROM APPLESOFT. 

zero page locations March 12 , 19BQ 

HPAG $E6 $20 =page i f $40-PAGE 2 These entry points supersede 

rot $F9 used with shape routines those published in the March, 

scale $e7 used with shape routines 19^0 "Apple Orchard”,VI.. 1 pi 7. 

B2 

THE GRAPHICS ROUTINES 

HGR2 $F3D8 

INITIALIZE TO PAGE 2 

HGR $F3E2 

INITIALIZE TO PAGE 1 

HCLR $F3F2 

CLEAR CURRENT SCREEN TO BLACK 
BKGND $F3F6 

CLEAR CURRENT SCREEN TO LAST PLOTTED HCOLOR 
HPOSN $F411 

POSITIONS HIRES CURSOR WITHOUT PLOTTING. A=Y X=XL Y=XH 
HPLOT $F457 

POSITIONS HIRES CURSOR AND PLOTS A POINT. A=Y X=XL Y“XH 
HLIN $F53A 

DRAWS A LINE FROM LAST POINT TO A=XL X=XH Y*Y 
HFIND $F5CB 

CONVERT LAST POINT'S POSITION TO X-Y COORDINATES. 

THE RESULTS ARE IN $E0=XL $E1»XH $E2=Y 

DRAW $F601 

SHAPE DRAW SUB. A-ROTATION FACTOR, X=SHAPE TABLE LOW, 

Y-SHAPE TABLE HIGH. USES SCALE. 

XDRAW $F65D 

SAME AS DRAW EXECPT DOES AN EXCLUSIVE OR WHEN PLOTS ON THE 
SCREEN. 

SETHCOL $F6EC 

X=COLOR. MUST BE LESS THAN 8. 

SHLOAD $F775 

LOADS SHAPE TABLE ABOVE HIMEM ($73,74) 


This application nota ha* boon provided by an AppTa Computer uaar. The International Apple Core 
does not guarantee the accuracy of thl* Information In any way and cautions that modlficatlona may 
void a manufacturer's warranty. Apple II, Applesoft, and Appla Computer aro tradamarka of Applo 
Computer Company, Inc. 
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P.O. BOX 976 DALY CITY, CALIFORNIA 94017 


March 10, 19^0 


LITERAL INPUT 

Here is another garbage collection forestaller with some nice 
additional benefits. ~It allows you to enter commas, quotes, 
and colons into Applesoft without getting an "EXTRA.I3N0RED" 
error for your efforts and works just as well for either 
keyboard or disk input. Originally published in CONTACT 6, 
the routine has been revised to remove some errors. Here's 
what it doesi 

- Line 100 defines a string variable at a known memory location. 
(This name can be anything you wish. We just happen to use 
IN$. ) 

- Lines 220-290 poke a short machine language routine into 
page 3 of your Apple's memory. This routine changes the 
pointer to the string in memory to point at the input buffer 
($ 200 ). 

- Line 350 calls the new input routine and the MID$ function 
moves a copy of the new string into main memory so that it 
isn't overwritten by the next input. 

Here's a cute trick for using this routine with random access 
disk files. Say your program is reading a file for the third 
field in each record. Using this routine, the syntax for that 
would bei 

CALL 768i CALL 768« CALL 7681 IN$=MID$(IN$,1) 

The first two calls are dummy INPUTS but, unlike the normal DOS 
"INPUT IN$" command, perform no string operations. 

Try it. You’ll like it. 

B6-1 




This application note has been provided by an Apple Computer user. The International Apple Core 
does not guarantee the accuracy of this Information In any way and cautions that modifications may 
void e manufacturer's warranty. Apple II, Applesoft, and Apple Computer ere trademarks of Apple 
Computer Company, Inc. 



100 LET IN$ - “X" 

110 TEXT : HOME 
120 REM 

130 REM THE FIRST. VARIABLE 
140 REM DEFINED MUST BE A STRING 
150 REM THIS STRING WILL REC’VE 
160 REM INPUT FROM THE CALL 
170 REM 

180 REM THIS POKES THE INPUT 
190 REM SIMULATOR ROUTINE 
200 REM INTO MEMORY... 

210 REM 

220 FOR J “ 768 TO 790 
230 READ I 
240 POKE J,I 
250 NEXT J 

260 DATA 162,0,32,117,253,160,2 
270 DATA 138,145,105,200,169,0 
280 DATA 145,105,200,169,2,145 
290 DATA 105,76,57,213 
300 REM 

310 REM NOW TO USE IT! 

320 REM 

330 PRINT "TYPE IN ANY CHARACTERS YOU WISH:” 

340 PRINT 

350 CALL 768:IN$ - MID$ (IN$,1) 

360 REM 

370 REM THIS IS AN "INPUT IN$” 

380 REM BUT IGNORES & ":" 

390 REM 
400 PRINT 

410 PRINT "AND HERE’S WHAT YOU TYPED IN:" 

420 PRINT f PRINT IN$ 

430 PRINT 

440 PRINT "NOTE THAT EVEN QUOTES, COMMAS AND" 

450 PRINT "COLONS GET THROUGH UNSCATHED.” 

460 PRINT : PRINT "NOW LET’S WRITE IT TO THE DISK. 
470 PRINT CHR$ <4)"0PEN TEMP" 

480 PRINT CHR$ (4)"WRITE TEMP" 

490 PRINT IN$ 

500 PRINT CHR$ (4)"CLOSE” 

510 PRINT : PRINT "AND READ IT BACK IN..." 

520 LET IN$ - " " 

530 PRINT CHR$ (4)”0PEN TEMP" 

540 PRINT CHR$ (4)"READ TEMP" 

550 CALL 768:IN$ - MID$ (IN$,1) 

560 PRINT CHR$ (4)"CL0SE" 

570 PRINT :. PRINT IN$ 

580 PRINT : PRINT "TA-DAAII": END 



34. Use of the compiler swapping option causes global declarations 
to be ignored. 






35. The manual does not clearly state that the string argument of 
the .TITLE pseudo-operation must be enclosed in double 
quotation marks. 

36. .Not all options of the Editor are listed on the prompt line, 
and the "?" option to get a list of the additional options 
is not supported. 

37. The reference manual does not adequately describe how to 
set up a program to be executed automatically, using 
SYSTEM.STARTUP. 

38. The Editor only accepts files with names of the form 
<file>.TEXT. 

39. The Editor is insensitive to certain punctuation conventions 
during paragraph reformatting. 

40. The Assembler should translate all alphabetlcs to upper-case. 

41. The documentation is inadequate in the description of assembly 
language and various options. 

42. The Compiler may generate an error #407 (too many libraries). 

43. The compiler generates code to always load segments 28-31 
if they are present. This may cause undesired loading. 

44. Uhen the NOLOAD option is used for an intrinsic unit with a 
data segment, the compiler fails to generate code to unload 
the data segment at the end of execution. Thus, if the 
program is run again, the data segment will not be loaded 
since the interpreter segment table will show that it is 
already there. 

45. The ATAN function gives an erroneous result for an argument 
less than -1.00. 

46. BIOS does not turn off the high-order bit of characters 
handled by the remote I/O routines. 

47. The PI parallel printer PROM appears to be incompatible with 
BIOS. The P1-02 PROM is required. 

48. The listing file produced by the Assembler does not follow 
the standard for text files as described in the Apple 
PASCAL Manual. 
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49. There is some confusion about the differences between the 
built-in variable KEYBOARD and the volume identifier 
SYSTERM:. 

50. The fact that the Editor requires tedt files to have an even 
number of 512-byte blocks is not documented. 

51. If a run-time error occurs while in graphics mode, the screen 
does not switch back to text mode to display the error 
message. 

52. The Cross Reference program on APPLE3 does not close and lock 
the output file. 

53. The Compiler does not check the declared length of STRING 
parameters passed by reference. Therefore, if the declared 
length of the actual parameter is less than that of the 
formal parameter, assignment of characters into the 
formal can clobber space beyond the end of the actual 
parameter without detecting any error condition. 

54. Using an uninitialized long integer may cause unpredictable 
problems because there may be illegal bit patterns that 
are not representations of digits. 

55. The Compiler QUIET option (Q+) does not turn off all output 
to the console. 

56. The system will crash if the system disk containing the Editor 
is not on line when returning from a Copy File command when 
the system disk was replaced for a disk containing the file 

to be copied. 

57. The interpreter code for floating point comparisons returns 

0.0 > (- 0 . 0 ). 

58. DIV and MOD functions give incorrect results for certain 
combinations of signs for the arguments. 

59. The code to clear SYSC0M is incorrect in the procedure BOOT. 

60. The figures given for the maximum integer values for each 
declared length of long integer are incorrect in the Apple 
PASCAL Manual, page 198. 

61. Source code for APPLE3:LINEFEED should be made available. 
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This is a list of known PASCAL problems. Updates and fixes will be 
announced 




1 . 


2 . 


3. 


4. 


5. 


6 . 


7. 


8 . 


9. 


10 . 


11 . 


12 . 


13. 


14. 


15. 


16. 


17 . 


The integer value -32768 prints as "—2768" and causes a 
compile error in the expression l:=-32768 where I:Integer. 

A long integer compare causes the system to crash. 

The compiler does not allow R:Real; I,J:Integer; R:=I/J; 
which should be legal according to Jensen 6 Wirth page 147. 

The BREAK key (ctrl-shift-P) does not cause a break during the 
execution of some programs. 

A variable of type TEXT can be passed as a VAR parameter. 

This is OK according to Jensen & Wirth, page 157. 

The Editor sometimes ends a file with 00 instead of the 
required 0D00. This results in trash on the screen. 

TTLOUT in Applestuff does not work. 

Transcendental functions are not included in the APPLE3:CALC 
program. 

The compiler will allow more than 9 segment procedures but 
only 9 will function properly. 

Separate units do not work. 

Erroneous placement of control characters may cause the Editor 
to go out of control, requiring the user to delete text 
in order to recover. 


When compiling using the (*$L+*) option, the compiler may 
damage the contents of the diskette. 

Intrinsic units cannot use non-intrinsic units, 
and vice versa. 

Intrinsic units cannot contain references to files. 


Long integer constants are not implemented. 

The IN function for set inclusion does not always work 
when the first argument is negative or greater than 511. 


A run-time stack overflow crashes the system instead of 
re-initializing. 


This application not* has bssn provided by an Appla Computer user. Tha International Apple Cera 
does not guarantee the eccurecy of this Information In any way and cautions that modifications may 
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18. The MEMAVAIL function may return incorrect results in some 
cases. 

19. .PUBLIC and .PRIVATE assembler variables may be relocated 

incorrectly at run-time. 

20. There is no way to tell the compiler to allocate all available 
disk space for the code file, so the compiler may run out of 
room for the code file even if sufficient space is available. 

21. The ORD function accepts REAL and pointer arguments even 
though this is incorrect. 

22. Negation of BOOLEAN variables do not turn FALSE to TRUE 
and vice versa. 

23. The compiler allows underscores in an identifier, but 
ignores them. 

24. Functions cannot return STRING values, although this is 
implied in the Apple PASCAL Reference Manual. 

25. Standard PASCAL syntax allows the field list and <variant> 
in a RECORD declaration to be null. The UCSD compiler 

does not allow these items to be empty. 

\ 

26. Due to the normal inaccuracies in representing REALs, some 
equalities may not test true. For example, LOG(IO) prints 
as 1.00000 but does not yield equality in the comparison 
LOG(10)«1.00000. 

27. Documentation for th SCAN function is incomplete. 

28. The example of MOVERIGHT is incorrect. 

29. The Editor does not report assscmbler errors in the same way 
that it reports compiler errors. 

30. The function KEYPRESS exists in Applestuff, but is not 
documented• 

31. Overflowing the code file causes the system to crash in 
various ways. 

32. The Editor informs the user when it is about to run out of 
space for the file buffer, but strange things may happen 
when the file is completely full. 


33. 


The compiler INCLUDE directive does not always work as 
expected. 
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APPEND FIX IN DOS 3.2 (i- 3.2.1) 

FROM APPLE COMPUTER CORP. 

The problem with APPEND in DOS 3.2 is that DOS doesn't write an End 
Of File marker on the disk when you chose a file. DOS normally fills 
new sectors with EOF markers, so the newly APPENDed information 
usually has an EOF after the last character. However, when the last 
character of the file falls exactly at the end of a sector. DOS 
doesn't find a new sector to fill with EOF markers. The next tine 
DOS does an APPEND it can't find the EOF marker and defaults back to 
the beginning of the file. 

The fix is to write out an EOF maker before closing the file after 
each write. Here is a five byte routine that will supply an EOF. It 
can be moved to any address if you are already usins 768 to 772. 

10 LET W= CHR$<4) 

20 POKE 768.169 
30 POKE 769,0 
40 POKE 770,32 
50 POKE 771,237 
60 POKE 772,253 
70 REM HON TO USE IT- 
80 PRINT D«; "APPEND FILE" 

90 PRINT DS; “WRITE FILE" 

100 PRINT "THIS IS DATA 0 
110 PRINT "SO IS THIS" 

120 CALL 7685 PRINT: REM THI IS IT 
130 PRINT Di! "CLOSE FILF140 END 

NOTE: The PRINT statement in line 120 is a must. 

Using this method, one need never worry about APPEND overwriting the 
start of a file. 
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INTERNATIONAL 

a IE APPLE CORE 



June 10, 1980 


Dear Member Clubs: 

The enclosed package represents the International Apple Core's first major 
publication of Apnotes. You will find a mix of new and old notes. The 
older ones are reprints based on poor-quality copies which have been dis¬ 
tributed in the past from various sources. This printing covers about one- 
half of the IAC library of reprints. The remainder will be published as 
they are printable. While reprinting old Apnotes, we will continue publish¬ 
ing new ones on as timely a basis as is possible. 

You may have noticed that each Apnote carries a letter and number code. 

These correspond to the codes which the IAC uses for indexing. An index for 
Apnotes published to date is attached. 

There has been considerable confusion over the IAC address. In addition to 
having our own address each of our officers, directors, and committee members 
has a home address as well. No one knows where to send the mail'. In general 
we prefer to have all mail sent to the IAC Post Office Box. This includes 
articles or other correspondence for the "Orchard". An efficient distribution 
system has been set up to see that the mail gets quickly routed to the proper 
individual. This way personnel changes and moves won't disrupt our timely 
response. 

A new IAC Special Interest Group is being formed. Larry L. Stoneburner, M.D. 
will organize the Medical SIG. Interested persons can contact Dr. Stoneburner 
by writing the IAC or at 2030 E. 4th Street, #133, Santa Anna, CA. 92705. 

His telephone number is 714-953-9151. 


Regards, 



Joe Budge 
Secretary 




P. O. BOX 976, DALY CITY, CALIFORNIA 94017 USA 
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APNOTE INDEX 

October 15, 1980 

A. HARDWARE MODIFICATIONS 

2. User Firmware (2716) 

4. Adding Colors to Hires 

6. Five Additional characters from the Keyboard 


B. BASICS 

2. Applesoft Hires Routines 

3. Applesoft Array Eraser 

4. Applesoft Hires Screen Function 

5. Generating Tones in Applesoft 

6. Literal Input Routine 

8. Print Using Simulator 

9. Converting Integer Basic Programs to Applesoft 

10. Applesoft Random Numbers 

11. Applesoft Out of Memory 

12. VTAB and HOME Converter for Sup-R-Terminal 

C. MACHINE LANGUAGE 

8. Adding Features to LISA 

9. Putting Programma M/L onto Disk 


D. INTERFACING INFORMATION 

2. Cassette Interface 

4. DEL Character Killer 

5. Correction To Sup-R-Terminal Preliminary 
Manual 

E. PRINTER INTERFACING 

3. Serial Handshake Modification with Tabs 

F. DATASHEETS 

5. Apple Post 
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G. PASCAL 


1. Lower Case Patch 

2. Linefeed 

3. Take 280 

4. Getrem 

5. Transfer & Sum 512 
7. Foreign & Gettext 

9. Comm Card Baud Rate Changer 

10. Interfacing Foreign Hardware 

11. Long Integer Fix 

12. Hires 

13. Known Pascal Bugs 

16. Pascal Units 

17. Pascal Peeks & Pokes 

H. TEXT AND GRAPHICS INFORMATION 

1. Text Screen Mapping and Use 

I. LISTS 

J. DOS 

1. DOS Demo Programs 

2. 3.2.1 Append Fix 
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APNOTE INDEX 


JUNE 10, 1980 




A. HARDWARE MODIFICATIONS 

2. User Firmware (2716) 

4. Adding Colors to Hires 

6. Five Additional characters from the Keyboard 


B. 


BASICS 

2. Applesoft Hires Routines 

3. Applesoft Array Eraser 

4. Applesoft Hires Screen Function 

5. Generating Tones in Applesoft 

6. Literal Input Routine 

8. Print Using Simulator 

9. Converting Integer Basic Programs to Applesoft 

10. Applesoft Random Numbers 

11. Applesoft Out of Memory 

12. VTAB and HOME Converter for Sup-R-Terminal 


C. MACHINE LANGUAGE 

8. Adding Features to LISA 

9. Putting Programma M/L onto Disk 


D. INTERFACING INFORMATION 


E. PRINTER INTERFACING 


F. DATASHEETS 


G. PASCAL 

2. Linefeed 

3. Take 280 

4. Getrem 

5. Transfer & Sum 512 

7. Foreign & Gettext 

9. Comm Card Baud Rate Changer 

11. Long Integer Fix 

12. Hires 

13. Known Pascal Bugs 
16. Pascal Units 


H. TEXT AND GRAPHICS INFORMATION 

I. LISTS 

J. DOS 

1. DOS Demo Programs 

2. 3.2.1 Append Fix 
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MODIFYING YOUR APPLE II TO ACCEPT USER FIRMWARE 

There are times when you may want to create your own firmware 
for the Apple II. Such firmware can be tailored to your special 
needs; then installed semi-permanently so that it can be used 
as conveniently as Apple BASIC or the Monitor. 

This application brief details a simple modification which allows 
your Apple II to accept industry standard 2716 (2Kx8-bit) Eraseable 
Read-Only-Memories (EROM's) in sockets 'DO' and 'D8'. These sockets 
correspond to memory addresses D000-DFFF. 

2716 EROM's are readily available through most semiconductor 
distributors. Many distributor locations are equipped to program 
the EROM's to your specifications, and will do so for a moderate fee. 


NOTE: THE ABOVE INFORMATION IS PROVIDED FOR THE CONVENIENCE OF 
TO SOPHISTICATED OWNER. AK USER MODIFICATION TO TO APPLE II 
(INCLUDING THIS ONE) VOIDS TO FACTORY WARRANTY. 
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APPLE-11 2716 EROM ADAPTATION INSTRUCTIONS 
{'OO' and 'D8* sockets) 

1. Remove the 1 EO* ROM from its socket. On the to£ side of the 
board, under the 'EO' socket, cut the ROM pin 18 jumper trace. 
Then reinsert the ROM. This cut will isolate pin 18 of ROM 'DO' 
and '08' from pin 18 of the other ROM. Reinsert the 'EO' ROM 
when done. 


'EO* SOCKET 



2. On the underside of the APPLE-11 board, cut the traces connecting 
pin 20 to 21 of ROMs '00' and *D8‘ only. 

3. (Underside) Cut the trace going to pin 18 of ROM ‘D8' near 
the chip. Scrape solder resist off of approximately h inch 

of the remaining trace not still connected to pin 18. You may 
wish to tin it with solder since it will later be soldered to. 

4. (Underside) Connect pin 18 of ROM 'D8‘ to pin 12 of ROM 'EO' 

(ground) 

5. (Underside) Connect pin 18 of ROM 'EO' to the.trace which 
previously went to pin 18 of ROM *D8' (and which should be 
pretinned if step 3 was followed). 

6. (Underside) Connect pin 21 of ROM '08' to pin 21 of ROM 'DO'. 
Then connect both of these to pin 24 of either ROM (VCC). 

7. Note that the TNH control function (pin 32 on the APPLE-II 
I/O BUS connectors) will not disable the 2716 EROMs in the 
'DO' and 'D8* ROM slots, since pin 21 is a power supply pin 
and not a chip select input on the EROMs. 

8. 2716 EROM devices may now be used in sockets 'DO' and 'D8'. 
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ADDING COLORS TO APPLE’S HIGH-RESOLUTION 
GRAPHICS HARDWARE 


The Apple II normally provides a choice of black,white, green, or 
violet for hi-resolution graphics. However, the color encoding scheme 
is actually capable of specifying two additional colors: blue and 
orange. This application brief details a simple hardware modification 
which will allow the Apple II to display all six colors. 


NOTE: THE INFORMATION HEREIN IS PROVIDED FOR THE CONVENIENCE OF THE 

SOPHISTICATED OWNER. ANY USER MODIFICATION TO THE APPLE II (INCLUDING 
THIS ONE) VOIDS THE FACTORY WARRANTY. 


1. Remove the Apple II PC board from its enclosure 


(a) Remove the ten (10) screws securing the plastic top piece 
to the metal bottom plate. Six (6) of these are flat-head 
screws around the perimeter of the bottom plate and four (4) 
are round-head screws located at the front lip of the compu¬ 
ter. All are removed with a phillips-head screwdriver. Do 
not remove the screws securing the power supply or nylon 
insulating standoffs.. - 

(b) Lift the plastic top piece form the bottom plate while 
Taking care not to damage the ribbon cable connecting the 
keyboard to the PC board. This cable will have to be 
disconnected from one or the other. 

(c) Disconnect the power supply from the PC board. 

(d) Remove the #8 nut and lockwasher securing the center of the 
PC board. (These will not be found on the earlier Apple II 
computers.) 

(e) Carefully disengage each of 6 nylon insulating standoffs 
from the PC board. (7 on earlier versions) 

(f) Lift the PV board from the bottom plate. 


2. Add in the new circuitry 


(a) Lift the following 1C pins from their sockets. 

A8-1 A9-1 

A8-6 A9-2 

A8-13 A9-9 

This application note has baen provided by an Apple Computor usor. The International Apple Coro does not guarantee the accuracy of this in¬ 
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(b) Mount a 74LS74 (dual C-D.flip-flop) and a 74LS02 (quad NOR 
gate) in the Apple II breadboard area (All to A14 region). 

(c) Wire the following circuit (* indicates that wiring is to 
a pin which is out of its socket). 


(A9-9)* 



3. Reverse step 1 to reassemble the Apple II 
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APPLESOFT ARRAY ERASER 




100 HOME 


110 VTAB 5 

120 PRINT TAB( 14);“ARRAY ERASER" 
130 COSUB 10000 
HO G0SUB 1050 

150 PRINT “HERE ARE THE ARRAYS” 

160 LIST 180 
170 COSUB 1000 


1.40 DIM A(100),B(100) 

190 PRINT “AND HERE'S WHAT WE PUT IN THEM* 

200 LIST 220 - 230 

210 COSUB 1000 

220 LET A(100) = 100 

230 LET B(100) « 100 

240 PRINT “OK, LET'S PRINT THEM OUT" 

250 LIST 260 - 270 
260 PRINT B(100) 

270 PRINT A(100) 

280 COSUB 1000 

290 PRINT “NOW TO ERASE ARRAY 'A’“ 

300 LIST 310 
310 CALL 768,A 
320 COSUB 1000 

330 PRINT “OK, NOW LET'S PRINT B(100) TO SHOW” 
340 PRINT : PRINT "THAT IT’S STILL THERE" 

350 LIST 360 


■■0 PRINT B(100) 

3/0 GJSJU 1000 

38C PRINT “NOW LET'S TRY TO PRINT A(IOO). THE" 


190 PRINT : PRINT "ERROR WE GET PROVES THAT THE ARRAY IS" 
400 PRINT : PRINT "CONE." 

410 LIST 420 
420 PRINT A(100) 

430 END 


1000 

REM ’PRESS ANY...' ROUTINE 




•no 

VTAB 23 


12030 

DATA 

1020 

PRINT TAB( 9);"PRESS ANY KEY FOR 

MORE” 

10040 

DATA 

1030 

HTAB 20 


10050 

DATA 

1040 

GET A$ 


i u060 

DATA 

1050 

VTAB 10 


10070 

DATA 

1060 

HTAB l 


10080 

DATA 

1070 

CALI. - 958: REM Cl.EAR SCREEN 


10090 

DATA 

1080 

RETURN 


10100 

DATA 

1O000 

REM THE 'ERASE' POKER 


10110 

DATA 

10010 

FOR J « 768 TO 823: READ K: POKE 

J,K: NEXT J 

10120 

DATA 

10020 

RETURN 


10130 

DATA 
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1000 REM HIRES SCRN FUNCTION 
1010 REM DEMO 

1020 REM 

1030 REM LOAD IN’ BINARY STUFF 
! 040 REM 

1050 FOR J =» 768 TO 806: READ K: POKE J,K: NEXT J 

1060 DATA 32,227,223,133,133 

1070 DATA 132,134,169,208,32 

108C DATA 192,222,165,18,72 

1090 DATA 165,17,72,32,185 

1100 DATA 246,32,17,244,165 

1110 DATA 48,49,38,240,2 

1120 DATA 169,1,168,32,1 

1130 DATA 227,76,91,218 

1140 POKE 1013,76: POKE 1014,0: POKE 1015,3 

1150 REM . 

1160 REM DRAW SOMETHINC 

1170 REM.-. 

1180 LET HO 3 120: VO » 60 

1190 HCR 

1200 HCOLOR=» 3 

1210 HPLOT HO,VO 

1220 FOR J « 1 TO 10 

1230 HPLOT TO RND (9) * 40 + HO, RND (9) * 40 + VO 
1240 NEXT 

12 50 HOME 

1260 VTAB 22 


1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
14 20 
1430 
14 40 
1450 
14b0 
1470 
1480 
1490 


FOR J = 0 TO 3000: NEXT 

REM . 

REM CONVERT IT TO LORES 

REM -. 

OR 

COLOR 3 2: FOR V = 0 TO 39: HLIN 0,39 AT V: NEXT 
FOR V = 0 TO 39 
FOR II » 0 TO 39 
COLOR 3 12: PLOT H.V 

REM. 

REM THIS IS IT !!! 

REM THE SYNTAX IS: 

REM AA*B,C WHERE 

REM A WILL GET THE 1 OR 0 

REM «,C IS THE HIRES 

REM COORDINATES AS IN 
REM HPLOT 

REM.-.. 

f. A » H + HO,V + VO 

COLOR 3 A * 15 

PLOT H.V 

NEXT 

NEXT 
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10 

REM *■**■**•***********■****«•* 

20 

REM * 


30 

REM * 

SIMPLE TONES FOR * 

40 

REM * 

*• 

50 

REM * 

APPLESOFT 11 

60 

REM * 

* 

70 

REM * 

J CROSSLEV 

80 

REM * 


90 

REM *************************** 

100 

REM 


110 

REM 

THIS IS THE ROUTINE 

120 

REM 

FROM PAGE 45 OF THE 

130 

* REM 

'RED BOOK' MODIFIED 

140 

REM 

FOR APPLESOFT. 

150 

REM 


ioO 

HOME 


170 

LIST 

- 150 

180 

REM 


190 

REM 

INSERT THE FOLLOWING 

200 

REM 

ROUTINE IN YOUR PROGRAM 

210 

REM 

THEN POKE 768,TONE 

220 

REM 

POKE 769,DURATION 

230 

REM 

AND, CALL 770 FOR TONES 

240 

REM 


250 

FOR 

I = 770 TO 790 


260 :: READ J 
270 :: POKE I. J 
280 NEXT 

290 DATA 173* 48. 192. 136. 208. 5 
300 DATA 206. 1,3, 240, 9, 202, 208 
310 DATA 245, 174, 0, 3, 76, 2, 3, 96 
320 FOR TN * 100 TO 10 STEP - 1 
330 :: POKE 763,TN: REM TONE 
340 :: POKE 769,10: REM DURATION 
350 :: CALL 770 
360 NEXT 
370 HOME 
3S0 LIST 180,360 
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100 REM PRINT USINC 

110 REM 

120 REM SIMULATOR 

130 REM 

140 REM AUG 79 

150 REM 

160 REM J. CR0SSLEY 

170 REM 

180 LET N ® 2: REM SET NUMBER 

190 REM OF DECIMALS 

200 LET S * 5: REM SET FIELD 

210 REM WIDTH 

220 HOME 

230 FOR X “ - 5 TO 5 STEP .501 

240 PRINT X," $ ”; 

250 GOSUB 2000 
260 PRINT 
270 NEXT X 
280 PRINT 

290 PRINT "UNFORMATTED FORMATTED 
300 END 

1000 REM THIS IS THE FORMATTING 
1010 REM SUBROUTINE. THE INPUT 
1020 REM IS 'X*,*N', AND 'S' 

1030 REM X IS THE NUMBER TO BE 
1040 REM BE PRINTED 
1050 REM N IS THE NUMBER OF 
1060 REM DIGITS RIGHT OF '.’ 


1070 

1080 

1090 

1100 

2000 

2010 

2020 

2030 

2040 

2050 

2060 


REM S IS THE WIDTH OF THE 
REM RIGHT JUSTIFIED 
REM PRINTINC FIELD 
REM 

X$ - " w + STR$ ( INT (X * 10 A N + .5)) 

Q - LEN (X$) - ( VAL (X$) < 0) 

PRINT SPC( S-Q*(Q>N+l)-(N+2) 
PRINT MID$ <X$,L + ( VAL (X$) < 0),(Q < 

9 

PRINT MID$ ("0.00",1 + ((N + 1) < Q),l + 

); 

PRINT RIGHTS (X$,N * (Q > N) + (Q - 1) * 
RETURN 


* <Q < = N + 1)); 

= N) + (Q - N) * (Q > N)) 

(N - Q + 2) * (Q < N + 2) 

(Q < - N)); 
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CONVERTING INTEGER BASIC PROGRAMS TO APPLESOFT 


Page 76 of the DOS 3.2 Reference Manual contains a routine which can 
be used to convert Integer Basic programs to Applesoft using the disk 
system. Integer Basic is required for the first step of the 
conversion only. 

First, load in the Integer program. Add the routine on page 76 at the 
very beginning of the program, adjust the LIST line for the specific 
program, and give the textflle a unique name. Then type “RUN". This 
will cause the program to be listed out to the disk as a textflle 
under the name specified. At this point, the text file is Independent 
of the language. 

To convert, type **EXEC <your fllename>" in Applesoft. The textflle 
will be read into the system as if typed from the keyboard. Since 
Applesoft does not check syntax at input time, the Integer syntax is 
accepted, although the program may not run. Save the program in 
Applesoft as usual. 

Micro Magazine, January 1980, contains an article describing Integer 
to Applesoft conversion using cassette instead of disk. The article 
also describes some of the syntax and logic changes that will usually 
have to be made. 
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APPLESOFT RANDOM NUMBERS 


The Applesoft random number generator, like all such routines, is only 
a pseudo-random generator, so non-random patterns will eventually 
occur. The frequency of repetition of these patterns will vary from 
procedure to procedure. Proper re-seeding of the random number 
generator during a program will help prevent the appearance of large 
repeating sequences. This can be done in two ways, and for best 
results, both should be used. 

1. Seed the random number calculation at the beginning of the 
program, using the keyboard count location. This will take the form 

S = PEEK(78) + PEEK(79)*256 
X ■=■ RND(-S) 

2. Within the random generating portion of the program, insert a 
statement of the form Z “ RND(-RND(9)), which will begin a new random 
sequence. (See page 102 of the Applesoft Reference Manual.) 

Please be aware that no method will completely eliminate patterns in 
the random numbers generated, but we can break up the sequences so 
that objectional non-random patterns are less likely to appear. 
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OUT OF MEMORY ERRORS 


There are two ways to get an 'OUT OF MEMORY ERROR' in Applesoft. 

The most obvious cause is to have a program that Is too big or uses 
coo many variables. The only solution in this case is to trim down 
the program, keep the data on a disk, chain the program in from the 
disk in segments, or upgrade your system to 48K. 

The less obvious cause is stack overflow. This is easy to spot 
because after getting the OUT OF MEMORY error, PRINT FRE(O) cells 
you that there is still free memory and, since the error clears the 
stack, everything else seems normal. The problem is that Applesoft 
uses the 6502 stack to save it's recursive subroutine calls and the 
stack is a limited resource. Here are some causes: 

* Too many levels of FOR-NEXT loop 

* Too many levels of GOSUB 

* Excessively complex mathematical or string formulas 

* COSUBs with no RETURN 

* Improper recovery in ONERR GOTO routines 

* CALLs or interrupts that don't restore the stack properly 

NOTE* THESE EFFECTS ARE CUMULATIVE. You might be affected by more 
than just one. 

first four are inherent in your program structure. If your 
program is cleanly structured then these probably won't cause 
trouble. 

If you arc using ONERR COTO you should carefully examine pages 81, 

82, and 136 of the Applesoft Reference manual. There are two 
correct ways to leave an ONERR routine. You can use RESUME which 
takes care of the stack and re-executes the statement that caused 
the. error or you can use the stack recovery routine on pages 82 and 
136 (the example on page 136 is easier to use) before you do a GOTO 
to a line number. Beware, this recovery routine does not clear any 
GOSUBs or FOR...NEXT loops! 

When Applesoft executes a CALL, it does a 6502 JSR to the specified 
address. It's up to you to pull off anything you pushed on the 
stack before the RTS. Likewise the routine to handle an interrupt 
from a peripheral card must restore the stack and the registers. 

A very large, complex program may be forced into a stack overflow 
condition by the user's responses. CALL 54915 will clear the stack 
without hurting the variables, but it wipes out all pending FOR-NEXT 
loops, GOSUBs and formulas. This allows a program controlled 
restart. Beware, this is no substitute for good programming 
practices but a way to recover when a program exceeds the Apple's 
capibilitics. 
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VTAB AND HOME CONVERTER FOR THE M 8 R SUP-R-TERMINAL 

BY DAN SOKEL 


i^\ 


Hello is the logon program 

and it spells ou 

t thi 

10 

REM DOCUMENTATION 



20 

D$= CH 

R$(4) 




30 

PRINT 

D$;"PR#3" 



40 

PRINT 

D$;"MAXFILES 5": 

PRINT:PRINT D$ 


SO 

PRINT 

CHR$( 

140) 



60 

PRINT 

"This 

program converts VTAB state 

men t 

70 

PRINT 

"to t 

he correct 

CTRL-SHIFT-N sequ 

ence 

80 

PRINT 

"Ente 

rprises SUP 

-R-TERMINAL board 

t» 

90 

PRINT 





100 

PRINT 

"The 

following l 

imitations must be ob 

110 

PRINT 

"1 . 

The program 

to be converted 

MUST 

120 

PRINT 

"2. 

The program 

must be on this 

disk 

130 

PRINT 

"3. 

The program 

cannot have any 

line 

140 

PRINT 

"4. 

There must 

be room on this d 

i sk 



the 

program." 



150 

PRINT 





160 

PRINT 

"The 

conversion 

is not very fast- 

—bu 

170 

PRINT 

"Afte 

r the conve 

rsion is complete 

the 



i n me 

mo ry." 



180 

PRINT 

"IT I 

S UP TO YOU 

TO SAVE IT — Don.t 

190 

PRINT 





200 

PRINT 

"Type 

return if 

you are ready to 

conv 

210 

GET A$ 




220 

DI= CHR$<4) 

: PRINT 



230 

IF A$ = 

■ CHR$ 

(13) THEN PRINT D$;"RUN FIXVTABS 

240 

END 






; in APPLESOFT PROGRAMS 
for use with the M & R" 


be APPLESOFT." 

•* 

numbers above 32749." 
for 2 ASCII copies of 


: it 
new 


works." 
program 


1 s 


forget. 


space to exit. 


FIXVATABS is the starting point for converting - RUN FIXVTABS OR HELLO 


10 

D$= CHR$ 

(4) 

20 

PRINT 

D$; 

"OPEN TEMP" 

30 

PRINT 

0$; 

"DELETE TEMP" 

40 

PRINT 

"ENTER NAME OF PROGRAM 

50 

PRINT 

D$; 

"N0M0N C,I,0" 

60 

PRINT 

D$ ; 

"EXEC XFERT0TEXT" 

70 

END 
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XPERTOTEXT is A TEXTFILE and contains the following data: 


PRINT 

32750 


D$;"LOAD ";A$ 
D$ = CHR$(4) 


32751 PRINT 0$;"OPEN TEMP” 

32752 PRINT D$;"DELETE TEMP” 

32753 PRINT D$;"0PEN TEMP" 

32754 PRINT D$;"WRITE TEMP*' 

32755 PRINT LIST 0-32749 

32756 PRINT CHR$(27) +CHRSC27) +CHR$ +CHR$(27) 

32757 PRINT D$;"CLOSE TEMP" 

RUN 32750 

RUN CONVERT 


CONVERT does the work - here.s how: 

10 D$=CHR$(4) 

20 PRINT 0$;"NOMON C,I,0" 

30 PRINT D$;"OPEN NEWPROG" 

40 PRINT D$;"DELETE NEWPROG" 

50 PRINT D$;"OPEN NEWPROG" 

60 PRINT D$;"OPEN TEMP" 

70 PRINT D$;"READ TEMP" 

80 GET AS 
90 C$=C$ + AS 

100 IF MIDS (C$,2,3) = CHR$(27)+CHR$(27) + CHRS(27) THEN GOTO 340 
110 IF AS < > CHRS (13) THEN GOTO 80 
120 FOR I = 1 TO LEN (C$) 

130 IF MIDS (C$,I,4)="VTAB" THEN GOSUB 200 
/**M40 IF MIDS (C$,I,4) ="HOME" THEN GOSUB 400 

150 IF MIDS (C$,I,10)="CALL-936" THEN GOSUB 380 
160 B$=B$ + MIDS (C$,I,1 ) 

170 NEXT I 

180 PRINT D$:PRINT D$;"WRITE NEWPROG": PRINT B$ 

190 B$=" " ; c$ = " " ; GOTO 70 
200 REM CONVERT VTABS HERE 
210 P=0 

220 X$="PRINT CHRS(158)+CHRS (32+POS(0)) + CHR$(32+" 

230 1=1+4 
240 B$=B$ + X$ 

250 FOR K = I TO LEN (C$) 

260 IF MID$(C$,K,1) = CHRS(13) THEN GOTO 300 

270 IF MI D$ (C$,K1) < > ":" THEN B$=B$+MID$ (C$,K,1): P=P+1 

280 IF MID$(C$,K,1)=":" THEN GOTO 300 

290 NEXT K 

300 1= I + P 

310 8$=B$ + ");" 

320 PRINT D$: PRINT "♦**** FOUND VTAB *****•'; 

330 RETURN 
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340 PRINT 0$;“CLOSE" 

350 TEXT 

360 PRINT D$;"EXEC TEXTOPROG" 

370 END 

380 REM FOUND CALL -936 

390 1= I + 6 

400 REM FOUND HOME 

410 1 = 1 + 4 

420 X$="PRINT CHR$(140);" 

430 B$= B$ + X$ 

440 PRINT D$;: PRINT "***** FOUND HOME *****•'• 
450 RETURN 


Lastly/ the textile TEXTOPROG recreates the program in memory 
NEW 

D$ = CHR$<4) 

PRINT D$; M EXEC NEWPROG" 
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MODIFYING THE LISA ASSEMBLER 
TO HANDLE USER ROUTINES 

Randall Hyde April 7, 1980 


If you enjoy your privacy, one of the worst things you can do is 
write a piece of systems software and market it. For every little bug 
(or "feature" as I prefer to call them), you're pretty much guaranteed 
ten phone calls and 100 letters. Having authored the LISA interactive 
assembler, I can say from experience that the support required of a 
high level product is tremendous. I doubt that the royalties received 
for my product have come anywhere near paying me back for the time 
spent creating and improving it. Now don't get me wrong, I enjoy what 
I am doing. Writing (and improving) LISA was strictly a hobby under¬ 
taking, and I certainly don't mind the chance to talk to fellow Apple 
owners across the nation. But nevertheless, as the old saying goes, 
you can't please all of the people all of the time. No matter what 
neat new feature a person adds to a product, there will always be some¬ 
one who desires something additional. This has been expecially true 
for the LISA assembler since the first day it was released. Most 
requests for changes to LISA have been quite reasonble and, in fact, 
have been implimented. Some requests, however, are of such limited 
use that they did not warrant inclusion into LISA. LISA is big enough 
as it is. There is really no need to make it gigantic just to satisfy 
everyone. The purpose of this article is to describe how to modity 
LISA so that special purpose functions may be included. I will assume 
that you are using LISA VI.5D, but this discussion applies to version 
1.5C and to a limited extent to LISA version 2.0 as well. 

Before describing how to "customize" LISA, the reader must first 
have an understanding of the internal structure of LISA: both in terms 
of the internal workings and an understanding of how source code is 
stored in memory. An understanding of the source code format for LISA 
is required in order to write routines which search out labels and per¬ 
form other related functions. An understanding of the internal workings 
of LISA is required in order to patch into it to make the desired 
changes. 

Internally, LISA consists of five modules. A command interpreter 
reads a line of text and performs the desired task. A collection of 
routines perform the LIST, DELETE, MODIFY, WRITE, etc., commands. A 
third section of LISA inputs a line of code, checks for proper syntax, 
and then tokenizes the code. The fourth section is the actual 
assembler which converts the source code to object code. The fifth 
section is an I/O executive which handles all I/O in LISA. 
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The most important module to discuss is the I/O module. Since 
without I/O, nothing else can be performed. LISA's I/O drivers are an 
enhancement over those provided by the Apple monitor. For our pur¬ 
poses, two things must be considered when using LISA's I/O. First, 
all characters are converted to normal ASCII format. That is, the 
high order bit of each character is turned off. Second, the line in¬ 
put routine stores its data starting at location $300, instead of $200, 
as is the case with the Apple monitor routine. This is due to the 
fact that Apple DOS uses page two for collecting DOS commands and as 
such it would often wipe out an input line. Lines of text in LISA can 
be used when writing your own commands for the LISA command interpreter. 
The internal format for a LISA source statement if described in suf¬ 
ficient detail in the LISA documentation manual, so I will not repeat 
its description here. 

So, how does one interface to the LISA command interpreter? Well, 
when designing LISA I realized that there was no way that I could for- 
see what types of peripherals would be used with the LISA assembler. 

So I incorporated a user defineable function for purposes of invoking 
user defined printer interfaces etc. Now it just so happens that this 
user defineable function can be used to impliment other user defined 
functions as well as printer drivers. The remainder of this article 
is dedicated to exploring this particular aspect of LISA. 

In most of the letters I've received asking for additional feat¬ 
ures, the two features requested the most were the ability to execute 
Apple monitor commands directly from the LISA command interpreter 
("just like the SC-Assembler II" more than one user has mentioned-was 
that a threat?!!) and the ability to run machine language programs 
directly from LISA. Despite the large number of users requesting these 
additions I have not incorporated these features for two very good 
(I feel) reasons. In the former case, I feel it's just as easy to hit 
the reset key to get into the Apple monitor as it is to type some 
special symbol such as "$" (as with the Apple mini-assembler) in order 
to perform an Apple monitor command. The latter request - allowing 
the user to execute a machine language program directly from LISA and 
then return to LISA is somewhat dangerous. Many user programs use some 
of the zero page locations where important pointers are kept. By 
allowing the user to run a program directly from LISA it allows the 
programmer to get lazy and not save the program onto disk before run¬ 
ning it. Forcing the user to press reset, or use the LISA "BRK" com- 
mant makes them think twice before destroying possible pointers. 

Nevertheless, there are several folks out there who tell me all 
the time "Give me the rope; if I hang myself it will be my own fault." 
Who can argue with that? As such the following LISA auxiliary program 
was born. This short little program, which resides from location 
$6F00 to $6FFF, impliments the previously described functions (Apple 
monitor commands and the ability to run a program from LISA) as well 
as leaving room open for user defineable routines. Its useage revolves 
around the control-P user function in LISA. Briefly, a jump to sub¬ 
routine is made to location $7009 whenever the first non-blank charac— 
ter on a line is a control-P. Normally at location $7009 is a jump 
back to the LISA command processor. By writing over the jump address 
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with a user defined address, it is possible to direct program flow to 
a routine to perform additional functions. Therein lies the method of 
expanding LISA in a manner decided upon by the user. 

The only problem remaining is where does this user defined routine 
go? Under normal circumstances, LISA uses up (for all practical 
purposes) all of the available space in a 48K machine. Once again, 
LISA's flexibility allows the user to reserve some memory for his own 
use. In a normal LISA system, locations $1800 through $5800 are 
reserved for textfile storage, locations $5800 through $6FFF are 
reserved for Symbol table useage and locations $7000 through $BFFF are 
reserved for LISA and DOS. Locations $7022 & $7023 in LISA contain 
the last address available for symbol table useage. Normally, these 
two bytes contain the value $6FF7. By changing this to $6EFO, it is 
possible to reserve the memory space from location $6FOO through $6FFF 
for use by the user routine. Setting up this address, as well as 
modifying the USRJMP address in LISA is handled in lines 30 - 41 of 
the following routine. By simply BRUNing the routine which follows, 
not only will it be loaded into memory properly, but it will also 
protect itself from being walked on by LISA, as well as setting up the 
correct jump vectors. 

At line 77 is the beginning of the routine which is called when 
the control-P command is detected. Now whenever the program gets to 
this point, the 6502 Y register contains an index into page three 
which points at the control-P character. By incrementing the Y 
register by one, the Y register will point to the next available 
character in the LISA input buffer. At line 65 the subroutine BLKDEL 
is called. This routine increments the Y register as long as it is 
pointing at a blank character. This allows interleaving blanks to be 
typed in without causing any problems. Upon return from BLKDEL, the 
6502 accumulator contains the first non-blank character detected. At 
this point, we can compare this character with several "test" charac¬ 
ters to determine which routine we wish to execute. In this program, 
any line beginning with a "$" means that the following text is to be 
interpreted as an Apple monitor command. If the line begins with an 
"R" then the program runs the code at the address (symbolic or non- 
symbolic) specified in the following address expression. 

Beginning at line 95 is the code to handle the Apple monitor 
command request. First the Y index register is incremented by one so 
that it points to the first character past the "$". Next, this code 
is OR'd with $80 to convert it to a form acceptable by the Apple 
monitor and stored into page two. Finally the monitor command is 
executed by executing the "FAKEMON" code found in the Apple mini¬ 
assembler. 

At line 145, the RUN command is checked for. If the first non¬ 
blank character after the control-P is an "R", then FNDBLK is used to 
find the next blank on the line. Once this is accomplished, the 
following blanks are skipped over with a call to BLKDEL. Finally, 
after some initial setup, GETADR is called and looks up the address on 
the remainder of the line. Any valid LISA address is allowed, as are 
-■ symbolic references. If the address is not found, then an error is 
reported, and the user is returned to LISA. Otherwise the code at the 
address specified by the user is executed. 
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If the first non-blank character on a line is neither a "$" nor an 
"R" then this routine drops down to USRCMD which simply returns to LISA. 
If you wish to incorporate your own commands into LISA you may add them 
at this point. Just keep in mind that there are only 64 bytes left 
before $7000 gets clobbered, so you may have to re—ORG this routine. 

To wrap things up, it would be wise to give a few examples of how 
to use this auxiliary routine since this article did not provide a very 
good description. 


TO EXECUTE AN APPLE MONITOR COMMAND FROM LISA: 
SYNTAX: (control-P) $ (and Apple monitor command) 

EXAMPLES: 


(control-P) $800L 
(control-P) $800G 
(control-P $7F8:00 

TO RUN A PROGRAM FROM THE LISA COMMAND LEVEL: 

SYNTAX: (control-P) R (address expression) 

Note: At least one blank must appear between the ”R" and the 

address expression. 

(control-P) R START 
(control-P) R START+3 
(control-P) R $800 


Obviously, any user command has its own syntax. 


Hopefully these examples have demonstrated how one may easily 
modify LISA and incorporate any special command you so desire. With a 
little work, it is possible to write label search routines, special 
driver routines, etc. The implimentation of these functions will be 
left to the reader. 



^ 6K00 
6F0G 
6FuO 
6F00 
6F00 
6F00 
6F00 
6F00 
6F00 
GFOO 
6FOO 
6F00 
6F00 
6F00 
6F00 
6F0C> 

6F00 

6F00 

6F00 

6FOO 

6F00 

6F0C» 

6F00 
6F00 
_ 6F< '0 
^6F00 
6F00 
AFO'' 

6F00 
6F00 
6F <'-0 
6F00 
6F0Q 
6F0A 
6F00 
6F0C. 

6F00 

6F00 A96E 

6F' • ? 80 3/0 

6F05 A9F0 

6Fo/ eo '2/0 

6F0A 

6F0A 

6F0A 

6F0A 

6F0A 

6F0A A915 
6FOI UDOA7n 
6F< >K AV6K 
6F11 f.DOFt?<. 
^f»F14 60 
6F15 
6F15 
6F 1 5 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 
3? 

33 

34 
*5 

36 

37 

38 
19 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 


ORG $6F00 

; APPLE MON 1 TOR EQUATES 


GETNUM IQU $FFA7 
T0SU3 F!JU $KEB£ 
ZMOLU EQU $FFC7 
CH;<TBL EQU 6FFCC 
DL1 EQU $FE0O 

PAl.J* 2 FQU '*>200 

* 

f 

YS/W EPZ $34 
MODE EPZ $31 

F 

t LISA EQUATES 


USRJMP EQU $7009 
SYF NO EQU 67022 
GET A OR EQU $83f:v 
PRINT EQU $7883 
SYMAHR EPZ $81 
ADRF ID EPZ S8F 
PNTR EPZ $6A 


*USER FUNCTION JMP ADDRESS 
}ADDRESS OF END-OF-SYMBOL TABLE 
*LISA ADDRESS EPRESSION ANALIZFR 
* Ll GA PF ' NT ROUTINE 
t ADFiRS IS RETURNED HERE. 
i$40 RETURNED IF ADDRESS FOUND 
JPOINTER TO ADDRESS EXPRESSION 


INPUl EQU $300 


I USA INPUT LINE BUFFER 


( InuTALLATIQN SECTION. 

4 

F 

} BY BRUNNING THIS PROOFAM# IT WILL AUTO- 
i INSTALL 1TSEU AND SET UP THE USA 
.* POINTERS SO T!IA f IT WILL NOT GET 
t WALKED UPON 


INSTALs 


LDA *»$6F 
STA SYMEND »-t 
LDA «$F0 
STA SYMEND 


UNIT H.O. BYTE OF MAXIMUM SYMBOL 
fTABLE ADDRESS 

UNIT L.O. BYTE OF MAXIMUM SYMBOL 
t TABLE ADDRS 


f THE FOLLOWING niOE SETS UP THE END-OF-SYMBOL 
i TABLF POINTER SO THAI THE SYMBOL 
i TABLE DOES NOT WIPE OUT THESE ROUTINES 


LDA »START 
STA USRJHP+1 
LDA /START 
STA USRJMP4? 
RTS 


J 
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6F15 
6F15 
6F15 
6F15 
6F.1 5 
^/.Fl5 
6F15 
6F15 
6F15 
6F15 
6F15 
6F15 
6F15 
6F15 
6FJ.5 
6F15 
6F15 
6F15 
6F1S 
6F15 
6FL5 
6F15 
6F15 
6F15 


6F15 

D8 

6F16 


6F16 


6F16 


6F16 


6F16 


^6F.6 

ca 

f.Fl? 

20A6/F 

6F • A 

C5 1 

6F1P 

M042 

6F1 E 


6F1I 


6F 1 E 


6F1I 


6F 1 E 


6F.1l 


6F IE 

ca 

6F1F 

A200 

6F21 


6F21 

D90003 

6F24 

0930 

6F26 

9D0002 

6F29 

C r . 3D 

6F2IH 

1 004 

6F J 1) 

E8 

6F2I 

ca 

6F2F 

DOEO 

6F31 


6F31 

A 000 

6F33 

4C3B61 

6F36 


6F36 


^6F»6 


6F36 


6F36 


6F36 


6F36 



55 

56 
5/ 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 
33 
84 
35 
86 
37 
88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 
J 03 
104 
1.05 
106 
1.07 
108 

109 

110 
11 1 
112 
i 1.3 
114 
.1 15 


f 

• 4 

j’vHIS ROUliNE* Ui IEN INVOKED BY A CONTROL-P# 

{ Will. HO SEVERAL THINKS. 

j l) if the CONTROL-P is followed by a *‘$ M then the 
} remaining data on ! he line will be treated as an 
t APPLE II Monitor command. 
i ff the CONTROL-P is followed by an 'R M 
; then the rest of the line is treated as 
; an address expression tnd the routine 
} at that address is executed. 

) Mute* If symbolic addresses are used 
; then this command must be 

} used after an assembly. 

. If none of these conditions are met* then a 
} branch to a user defireabl* routine 
. is made. 

STARTs 


CLD 


AT THIS POINT* HE Y REGISTER IS 
AN INDIX INTO THE INPUT HUH 1 R ANH 
CIRREM’LY POINT’S AT THE CONYROL-P. 


I NY 

JSR PLKPFL 
i MP ' 6' 
HNI TSTI.UN 


; MOVE TO THE NEXT CHARACTER 
1 HI LET! ALL LEAPING BLANKS 
; 13 THE NEXT NON 3LAI K A "*“? 
;(;{) TO TFHT FOR RUN ROUTINE 


IF DO* IRAN}‘I PR PATA THROUGH THE RETURN 
VO THE AIT EE TNI »IT BUSKER AID CONVERT 
TO APP1..E ASC) t COMF. 


MY 

LDX «0 

i r ip* 

LDA INPUT*Y 
ORA *1180 
STA PAGI 2* X 
CMP it-SOD 
BEG 1.-PX IT 
I NX 
I NY 

BNE POOP 


; MOVE PAST THE "V 
t SET UP INPEX INTO PAGE TWO. 

; GET LiATA FROM LISA INPUT BUFFER 
;CONVERT TO APPLE'S BRAND OF ASCII 
; SAVl IN APPLE INPUT BUFFER 
{Qi i [T WHEN RETURN IS FOUND 


LPX i t LDY tO 

JMP IAKHON 


{SET UP INDEX FOR APPLE MONITOR. 


soiulate apple monitor 

THIS CODE WAS RIPREP OFF OUT OF THF APPLE 
I INI ASSEMBLER. 
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rN 


7*5 




6F36 

20BEFF 

116 

FKMN3 

JSR 

TOSH H 

6F )? 

A4 24 

117 


l.DY 

YSAV 

6F3R 


118 

• 

9 



6K3B 

20A/FF 

119 

FAKf ON 

JSR 

GETNUM 

6F31 

■4434 

120 


STY 

YSAV 

6F- 0 

AO 17 

121 


LDY 

)*$17 

6F42 


122 

s 

9 



6F42 

88 

123 

F1.MN2 

DEY 


6F43 

3012 

124 


BM1 

RESEl2 

6F45 

D9( * :FF 

125 


CMP 

CHRTBL >Y 

6F4P 

H0F8 

126 


BNE 

FKMN2 

6FIA 

CO =.5 

127 


CPY 

**15 

6F4C 

POES 

128 


BNE 

FKMN3 

6F4E 

A5U 

129 


LDA 

MuDE 

6F50 

AOOO 

130 


LDY 

uo 

6F 52 

Cr.34 

131 


DEC 

YSAV 

6F54 

20001 \ 

132 


JSR 

DL1 

6F57 


133 

* 

9 



6F57 

A98D 

134 

RES! TZ 

LDA 

4$8D 

6F V? 

201 i D 

i 35 


JSR 

4>FDED 

6F5C 

VO FIU LI 

136 


JSR 

*FD1 0 

6F5K 

60 

13/ 


RTS 


6F60 


138 

« 

9 



6F60 


139 

* 

9 



6F60 


140 

i 



6F60 


141 

• 

t 



6F60 


142 

i TEST 

FOR 

RUN COMMAND ROUTINE. 

6F60 


143 

• 

t 



6F60 


144 

s 

9 



6F60 


145 

TST1 JN 

• 

* 


6F60 


146 

• 

f 



6F40 

C9 •>2 

14/ 


CMP 

*R' 

6F62 

i'041 

148 


BNE 

USRCliD 

6F44 


149 

* 

f 



6F64 


150 

i SKIP 

OVER ALL NON-BLANK CHARS 

6F64 


1.51 

* 

» 



6F64 

20B161 

152 


JSR 

F NDDLK 

6F/>/ 


153 

• 

/ 



6F6? 


154 

i NOW DELETE ALL FURTHUR BLANK CHARS 

6F67 


155 

* 

9 



6F67 

V0A66F 

156 


JSR 

BLKJU L 

6F/>A 


157 

* 

9 



6F6A 


158 

* 

9 



6F6A 

A900 

159 


LDA 

*INPUT {SET UP PNTR WITH 

6F6C 

8 56 A 

160 


STA 

PNTR t THE ADDRESS OF INPUT 

6 F/ 1 F. 

A903 

161 


LOA 

/INPUT {DATA. 

6F70 

S56D 

162 


STA 

F’NTR+l 

6F7 2 


163 

• 

V 



6F72 


164 

$ 



6F72 

201: *43 

165 


JSR 

GETADR {ANALIZE ADDRESS EXPRESSION 

6F75 

V48F 

166 


BIT 

ADRFND {SEE IF ADDRESS WAS FOUND 

6F/7 

70V3 

167 


BVS 

RUN1 {IF NOT# QUIT GRACEFULLY 

6F79 

208378 

168 


JSR 

F'RINT 

6F7C 

OD'O 

169 


HEX 

■>OOD 

6F7E 

i:9CCf.:C 

170 


ASC 

"ILLEGAL ADDRESS EXPRESSION" 

6Fai 

C5C/C1 





6F84 

CCA0C1 





6F/J7 

C4C4B2 





6F8A 

C:5D3M3 





6FA13 

A0U.08 





6F90 

H0D2r:;> 
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rs 


6F93 

6F96 

6F73 

D3D3C9 

CFCE 

OD- noo 

171 

1 (EX ODODOO 

6F9B 

60 

172 

RTS 

6F9C 


173 

* 

9 

6F9C 


174 

4 

r 

6F9C 


175 

J ADDRESS EXPRESSION WAS VALID; SO 

6F9C 


176 

i GO TO THAT ADDRESS AND F XECUTE 

6F9C 


177 

4 

9 

6F9C 

20A26F 

178 

RUN1 JSR JSRIND 

6F9F 

40. >3 70 

179 

JMP #7003 

6FA2 


180 

* 

9 

6FA2 

603100 

131 

JSRIND JMP (SYMAOR) 

6FA5 


182 

4 

¥ 

6FA5 


J83 

4 

9 

6FA5 


184 

4 

9 

6FA5 


185 

t ADDITIONAL USER STUFF CAN GO HERE 

6FA5 


186 

9 

6FA5 

60 

187 

USRCMD RTS 

6FA6 


188 

4 

9 

6FA6 


139 

4 

9 

6FA6 


190 

4 

f 

6FA6 


191 

; BI.FDEL- DELETES ALL LEADING BLANKS 

6FA6 


192 

4 

9 

6FA6 

B9- V m.»3 

193 

BLI ;EL LDA INPUT; Y 

6FA < ' 

i :920 

194 

CMP «*' ' 

6FAB 

D003 

195 

BNE DLKXIT 

6FAI ’ 

(B 

196 

INY 

6FAE 

DO 1*6 

197 

BNE BLKOEL 

6FB0 


198 

4 

V 

6FB0 

60 

199 

BLKXIT RTS 

6FB.1 


200 

9 

6FB1 


201 

4 

9 

6FB1 


202 

i FNDBLK- FINDS THE NEXT BLANK CHARACTER 

6FB1 


203 

? 

6FB1 


204 

FNDBLK; 

6FE<1 


205 

4 

9 

6FBJ 

B90003 

206 

l.DA INPUT; Y 

6FM 

C920 

207 

CMP *' ' 

6FB6 

roo7 

208 

BEQ FNDXIT 

6FBQ 

C9oD 

209 

CMP **D 

6FBA 

roo3 

210 

BEQ FNDXIT 

6FBC 

ca 

211 

INY 

6FBD 

H0F2 

212 

BNE 1NDBI.K 

6FBF 


213 

4 

9 

6FBF 

{> 0 

214 

FNDXIT RTS 

6FC0 


215 

4 

9 



216 

END 

#*# ** 

END OF 

ASSEMBLY 
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************************* 

» * 

* SYMBOL TABLE - - V J . 5 * 

* * 
****###*###••**#**#**#**### 

LABEL♦ l,'1C« LABEL. i 00. LAflFL. LUC. 


** 2 FRO PAGE VARIABLESs 


YSAV 

0034 

HOOF 

0031 

SY- IAOR 

nOrtl 

ADhFND 

0O3F 

PNTR 

006A 



** ABSOLUTE 

VARABLES/LABELS 








GET'IIJM 

i : A7 











TOSLIj 

FFBE 

ZMODF 

FFC7 

CHRTBL. 

FFCC 

BL.1 

FEOO 

PAGE? 

0200 

USRJMP 

7009 

SYr ND 

4 >2 2 

G: VADR 

3 ;::9 

PR . 'IT 

; .'33 

Iiii-l JT 

0200 

INSTAL 

6F00 

START 

6F15 

LOOP 

6F21 

LPX1T 

6F3J 

FKMN3 

6F3A 

FAKI10N 

6F3B 

FKMN? 

6F4? 

RESETZ 

6F57 

TS1 -:IJN 

/•F60 

:;UN1 

7C 

JSf.’tND 

A‘A'2 

usr -:md 

6FA5 

BLKPEL 

6FA6 

BLKXIT 

6FB0 

FNDB1.K 

6FBJ 

FNDXIT 

6FBF 










SYM1QL TABLE STARTING ADDRESS:6000 
SYMBOL TABi.E LENGTH: 0112 
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APNOf 


PROGRAMMA International, Inc. 

THIS ADDENDUM SUPPLEMENTS INTEGER BASIC/MACHINE 
LANGUAGE SOFTWARE DOCUMENTATION 




How about saving the program on the supplied 
cassette onto disk? It*s actually very simple to 
do if you follow these instructions carefully: 

1) Type in the machine language program (on page 2) 
beginning at hexadecimal address $1100. 

NOTES: 

A) Simply type the numbers. The disassembled 
listing with comments is to assist you. 

B) Any value can be substituted for ?? for 
now as it will be changed in step 3* 

C) The routine can be found at the beginning 
of appropriate programs in the DEALER DEMO 
PACK. 

2) Load in the program from cassette beginning at 
address $1200. For example, if the normal load 
is ”200.2000R", then load it ”1200.3000R". 

3) Now take the high byte of tne ending address of 
the normal load (i.e. $20 for $2000, $40 for 
$4000) and add $0F to it ($2F, $4F...). Place 
this value into memory location $11 IF. 

4) BSAVE the appropriate region of memory: 

(A$1100, L$xx00 where xx=1F, 3F...) 

5) If there are any more programs you wish to store 
onto disk, repeat steps 2 thru 4. 

6) To execute a program, simply type "BRUN filename" 
and press return. 




This application note has been provided by an Apple Computer user. The International Apple Core does not guarantee the accuracy of this In* 
formation in any way and cautions that modifications may void a manufacturer's warranty. The International Apple Core is a non-profit or¬ 
ganization unaffilliated with Apple Computer, Inc. or any other manufacturer. Apple II, Applesoft, and Apple Computer are trademarks of 
Apple Computer, Inc. 
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SUMMARY TABLE: 


! NORM LOAD ! NEW LOAD ! HI !+OF ! L$ ! SYS ! 


! 200.2000R 
! 200.4000R 
! 200.6000R 
! 200.8000R 


1200.3000R ! 20 
1200.5000R ! 140 
1200.7000R ! 60 
’200.90008 ! 80 


2F ! 1F00 
4F ! 3FOO 
6F ! 5F00 
8F ! 7F00 


24K ! 
32K ! 
48K ! 
48K ! 


Here is the Machine Language program: 


1100 - 

20 

84 

FE 

JSR 

$FE84 

1103- 

20 

2F 

FB 

JSR 

$FB2r 

1106 - 

20 

93 

FE 

JSR 

$FE93 

1109- 

20 

89 

FE 

JSR 

$FE89 

110C- 

A9 

00 


LDA 

#$00 

1 10E- 

85 

3C 


STA 

$3C 

1110 - 

85 

42 


STA 

$42 

1112 - 

A9 

12 


LDA 

#$12 

1114- 

85 

3D 


STA 

$3D 

1116 - 

A9 

02 


LDA 

#$02 

1118 - 

85 

43 


STA 

$43 

111 A- 

A9 

FF 


LDA 

#$FF 

111C- 

85 

3E 


STA 

$3E 

11 ’E- 

A9 

? 9 
* * 


LDA 

#$?? 

1120 - 

85 

3F 


STA 

$3F 

1122 - 

AO 

00 


LDY 

#$00 

1124- 

A9 

02 


LDA 

#$02 

1126 - 

48 



PHA 


1127- 

A9 

IF 


LDA 

#$1F 

1129- 

48 



PHA 


1 12A- 

4C 

2 C 

FE 

JMP 

$FE2C 


This 

routine 

will ’ 

work on 


SET NORMAL VIDEO 
SET TEXT FULL WINDOW 
SIMULATE PR#G (COUT) 
SIMULATE IN#0 (KEYIN) 

FROM LO ADDR 
TARGET LO ADDR 

FROM HI ADDR 

TARGET HI ADDR 

TO LO ADDR 

MAKE XX+$0F OPERAND 

TO HI ADDR 

BY PUSHING $02 & $1F 
ONTO THE STACK, WE SET 
UP A PSEUDO RTS ADDR 

DO MOVE, THEN DO "220G" 


not. 
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INTERNATIONAL 
APPLE CORE 

P. O. BOX 976, DALY CITY, CALIFORNIA 94017 USA 


AfNOTE 


THE APPLE II CASSETTE INTERFACE 


INTRODUCTION; 

This note Is to explain the cassette Interface built into 
the Apple II and Apple II plus. Included is information on 
the format and use of the read and write subroutines. It is 
assumed in this note that the cassette recorder is in the 
proper mode, play or record, when the read and write 
routines are executed. Also note that the timing is 
approximate and may vary from one Apple to another. 


RECORDS: 

A record is a block of binary data. This data may be a 
BASIC or APPLESOFT program, a machine language program, or 
Just binary data. Records representing BASIC or APPLESOFT 
programs are really two records, the length of the program 
and the actual program. A record consists of a header, sync 
bit, the actual data, and a checksum byte for error 
detection. 




MONITOR RECORD FORMAT 

+ - +-+-+-+ 

I HEADER JS! DATA IC! 

+ - +_+ - +-+ 


BASIC PROGRAM RECORD FORMAT 

+ - +-+ - +-+ - +-+ - +-+ 

I HEADER IS! LB J C! HEADER IS t PROGRAM IC! 

+ - +-+-+-+-+-+-+-+ 


KEY: S - SYNC BIT 

C - CHECKSUM BYTE 
LB - BASIC PROGRAM LENGTH 




This application note has boon provided by an Apple Computer user. The International Apple Coro does not guarantee the accuracy of this in¬ 
formation In any way and cautions that modifications may void a manufacturer's warranty. Tho International Apple Coro is a non-profit or¬ 
ganization unaffilliated with Apple Computer, Inc. or any other manufacturer. Applo II, Applesoft, and Applo Computer ere trademarks of 
Apple Computer, Inc. 
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THE HEADER 




The header consists of 10 seconds of 770 H 2 tone, (1 cycle 
equals 1300 microseconds). This is enough time for the 
cassette motor to get up to speed and the plastic tape 
leader to go by. There Is also a shortened header between 
the BASIC length bytes and the BASIC program itself. This 
header Is generated by a subroutine called HEADR. The value 
of the accumulator on entry controls the length of the 
header tone. This can vary from 0.2 seconds to 40 seconds. 
On entry the X register should be 0 and the carry flag 
should be set. HEADR also generates a sync bit at the end 
of the tone. HEADR resides at hexadecimal address $FCC9, or 
decimal address -882. 


THE LAST CYCLE OF HEADER TONE AND SYNC BIT 


-+ 


+ 


+ 


1 


1 


1 


+ 


+ 


+- 



1300 microseconds 


1 2001 250 1 


header tone 


sync bit ! 


THE SYNC BIT: 

The sync bit is one half cycle of 2500 Hz, (200 
microseconds) and one half cycle of 2000 Hz, (250 
microseconds). It is used to signal the end of the header 
tone and the start of the data. It is generated by HEADR. 




THE DATA: 


The data is recorded on the tape with a low starting address 
and a high ending address. Each byte of data is shifted out 
most significant bit first, least significant bit last. A 
zero bit 18 made up of one cycle of 2 kHz, (250 microseconds 
per half cycle) and a one bit is one cycle of 1 kHz, (500 
microseconds per half cycle). This works out to 2000 baud 
for zeros only and 1000 baud for ones, an average of 1500 
baud • 


A ZERO BIT 


AND A ONE BIT 


+-+ + 

1 l 1 

+ +-+ 

1 500 usee 1 


-+ + 

i ! 

+-+ 

1000 usee 1 
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THE CHECKSUM: 


All during reading or writing each data byte is EXCLUSIVE 
OR-ed with a checksum byte. This byte is writen on the tape 
at the end of the data block. If the checksum computed 
during a read agrees with the checksum that was written out 
then the data is probably good. This method will detect an 
odd number of errors for any of the eight bits of the byte. 


WRITING DATA: 

The cassette output circuitry is quite simple. it is a 
flip-flop connected through a voltage divider to the jack on 
the back panel of the Apple. Any time the address $C020 is 
accessed this flip-flop changes state. Accessing the 
flip-flop once every 500 microseconds generates a 1000 Hz 
tone. 


READING DATA: 

The cassette input circuit more complicated. It consists of 
a 741 operational amplifier configured as a zero crossing 
detector. That means that whenever the voltage at the input 
jack goes from positive to negative (or negative to 
positive) the output of the amplifier switches from a 1 to a 
0 (or 0 to 1). The detector is accessed by any read to 
address $C060. The sign bit (most significant bit) reflects 
the detector status. The read routines continually 
EXCLUSIVE ORs this bit with the value most recently read to 
detect a change in state. The amount of time required to 
change state indicates the incoming frequency which then is 
used to determine If a one or a zero has been recieved. 

After detecting the first zero crossing at the start of a 
read* the read routine uses HEADR to generate a 3.5 delay 
then waits for the sync bit. It then reads the data and 
pu18 it in the specified memory range. 



USING THE CASSETTE INTERFACE: 


To either read or write all you need do ia specify an 
address range and execute the read or write subroutine. The 
address range is stored in four bytes, two for the start and 
two for the end. In both cases the least significant byte 
is first. 


FROM THE MONITOR: 

If the start is $800 and the end is $9FF then 

800.9FFW will write the data to the cassette and 
800.9FFR will retrieve it. 




FROM MACHINE LANGUAGE: 

Again if the start is $800 and the end is $9FF then store 
the address range. 


LDA #$00 
STA $3C 
LDA #$08 
STA $3D 
LDA #$FF 
STA $3E 
LDA #$09 
STA $3F 


starting address low 
starting address high 
ending address low 
ending address high 


then JSR $FEDC to write the data to the cassette or JSR 
$FEFD to read from the cassette. 


FROM BASIC: 

First set up the address range. If S » the start and E - 
the end then from integer BASIC, 

POKE 60,S MOD 256 
POKE 61,S / 256 
POKE 62,E MOD 256 
POKE 63,E / 256 

or from APPLESOFT, 

POKE 60,S - INT (S / 256) * 256 
POKE 61,S / 256 

POKE 62,E - INT(E / 256) * 256 
POKE 63,E / 256 

Then to write out to cassette CALL -307 or to read in from 
the cassette CALL -259. 
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APNOTE 


DEL CHARACTER KILLER 
5 FEB 80 


INTRODUCTION: 

This routine won't allow the DEL character (underline) through the 
Input routine. DOS 3.2 is required to use it. 

SOFTWARE ENTRY 

First you must decide which slot the interface will go in and enter 
the routine. The routine is customized for this slot number and won’t 
work if used with a different configuration. Enter the routine using 
the values from the table for words in brackets, < >• 


SLOT 

1 

2 

3 4 5 

6 

CODE 

Cl 

C2 

C3 C4 C5 

C6 * 




COMMUNICATIONS 

SERIAL 

TYPE 



07 

05 


Enter the monitor with CALL -155 and type 

390:A9 <SL0T> 

:20 8B FE 

:A9 AO 

:85 38 

:A9 03 

: 85 39 

:4C EA 03 

:20 <TYPE> <C0DE> 

:C9 FF 
:F0 F9 
:60 




Thi» application noto has boon providod by an Applo Computer user. Tho International Apple Coro does not guarantee tho accuracy of this in¬ 
formation in any way and cautions that modifications may void a manufacturer's warranty. The International Apple Core is a non-profit or¬ 
ganization unaffllliatod with Applo Computer, Inc. or any other manufacturer. Applo II, Applosoft, and Apple Computer are trademarks of 
Apple Computer, Inc. 
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To check your typing, type 
390L 

and compare your listing to the one below for slot 2 and a 
Communications Interface. 


0390- 

A9 

02 


LDA 

#$02 

0392- 

20 

8B 

FE 

JSR 

$FE8B 

0395- 

A9 

A0 


LDA 

#$A0 

0397- 

85 

38 


STA 

$38 

0399- 

A9 

03 


LDA 

#$03 

039B- 

85 

39 


STA 

$39 

039D- 

AC 

EA 

03 

JMP 

$03EA 

03A0- 

20 

07 

C2 

JSR 

$C207 

03A3- 

C9 

FF 


CMP 

#$FF 

03A5- 

F0 

F9 


BEQ 

$03A0 

03A7- 

60 



RTS 


Now return 

to 

BASIC 

with 

3D0G 


SAVING THE PROGRAM TO DISK: 


The routine must be in memory before the printer can be used with the 
delay. Save the routine by typing 
BSAVE DEL FILTER, A$390, L$18 


USING THE INTERFACE: 

To use the interface you must first load the routine and initialize 
the interface. From command mode type 
BLOAD DEL FILTER 
CALL 912 

This may be done from a program by entering 
100 PRINT D$;"BLOAD DEL FILTER" : CALL 912 
assuming that D$ is a control-D. 

If you want to switch back to the video monitor for output type 
IN#0 

or in a program enter 
200 PRINT D$;"IN#0" 

Then to reconnect the routine, all that is required is 
CALL 917 or from a program 
300 CALL 917 
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APNOT 


CORRECTIONS TO SUP-R-TERMINAL PRELIMINARY MANUAL 

By John Wilbur 

VTABS 

The preliminary manual has a number ® rrors * ?? *^1-* ABSOLUTE 
significant ones is the replacement for VTABS on page 14 under ABSOLUTE 

CURSOR POSITIONING. Control T Shift N should be ^* pl *** d VTABS in * ° r 
Shift N (the Control T was wrong). In other words# the 
Basic programs should be repleaced with: 




PRINT CHR$(158);PRINT$(HOR);PRINT$(VERT) 


column 


desires + 32# and where VERT is the 


Were HOR is the horizontal 
vertical line desired + 32. 

To do the Soto XY from the keyboard, you would type Control•**>’♦*{*,£*£,1 
- Key 2. Where Key 1 is the key you press to g1 ue you the 
position of the cursor (column 0-79). For example# Y . „ 

cursor°to move to column 18# you would find "18" in the rightmost column 
of appendi x A labeled "SUP-R-TERMINAL MEANING". The key you upuld 
would be the "2" key (shown in the column labeled "type”) just to the left 

of the 18. 


PASCAL NOTE 

SUP-R-TERMINAL works best in PASCAL. We have recewed some feedback from 
PASCAL users that say the KEYPRESS function in their programs rep “ 

program modification in order to work properly. *•**”**'* ' allowing 
that checks the keyboard to see if you have pressed a key before allowing 

the program to continue. The PASCAL syste ^ ^ card plugged in# 

there is an external terminal connected. If 1 . , kevboard for the 

ll assumes there is# and then doesn.t check t PP function to 

keypress function. The best solution is to add a all 

the library and then use a boolean function named KEY to replace aU. 

places in the program where you have a Keypress use . EnterpP i ses ^ Box 
this in more detail# please request for same to M S R Enterprises# 

61011# Sunnyvale# Ca 94088. 
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SERIAL HANDSHAKE MODIFICATION WITH TABS 
JUNE 1980 


INTRODUCTION: 

The High Speed Serial Interface card cannot run faster than 300 baud 
on most printers due to a lack of a printer busy line. This 
modification uses the existing data input line to sense if the printer 
is busy and inhibit output if necessary. DOS 3.2 is required to use 
this modification. This version lets TAB(X) work normally. 

WARNING: 

Damage to the High Speed Serial Interface card will not be covered by 
your warranty. If you aren't sure of the signal levels and pinout of 
your printer, find out or ask your Service Center to help you. 

WIRING CHANGES: 

First you must determine which wire your printer uses to Indicate a 
printer busy or buffer full condition. Your printer's manual should 
contain this information or contact the manufacturer. 


Examples: 


IDS 125/225 

pin 

4 

HEATH H-14 

pin 

4 

TI-810 

pin 

11 

SPINTERM 

pin 

19 

COMPRINT 

pin 

20 


The preferred place to do the wiring change Is in the cable, hut it 
can also be done at the Serial Card or the printer. Disconnect the 
wire between pin 2 of the printer and pin 2 on the Serial Card. Then 
connect the wire with the printer busy signal tc the wire for pin 2 on 
the Serial Card. 

SOFTWARE PATCH: 

Next you must decide which slot the interface will go in and type in 
the software patch. The patch is customized for this slot number and 
won't work if used with a different configuration. The patch forces 
the computer to look to see if the printer is busy and wait if it is. 
Enter the patch using the values from the table for symbols in 
brackets, < >. 



SLOT 

1 

2 

3 

4 

5 

6 

7 


A 

90 

A0 

B0 

C0 

D0 

E0 

F0 

'_- 

B 

Cl 

C2 

C3 

C4 

C5 

C6 

C7 


C 

F9 

FA 

FB 

FC 

FD 

FE 

FT 


This application note has been provided by an Apple Computer user. The International Apple Core does not guarantee the accuracy of this in¬ 
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Enter the monitor with CALL -155 and type 




3A0:A9 <SLOT> 
s 20 95 FE 
:A9 00 
:20 ED FD 
:A9 B5 
:85 36 
:A9 03 
:85 37 
:4C EA 03 
:2C <A> C0 
:30 FB 
:20 07 <B> 

:48 

:AD <C> 05 

:85 24 

:68 

:60 


To check your typing, type 
3A0L 

and compare your listing to the one below for slot 1. 


03A0- 

A9 

01 


LDA 

#$01 

03A2- 

20 

95 

FE 

JSR 

$FE95 

03A5- 

A9 

00 


LDA 

#$00 

03A7- 

20 

ED 

FD 

JSR 

$FDED 

03AA- 

A9 

B5 


LDA 

#$B5 

03AC- 

85 

36 


STA 

$36 

03AE- 

A9 

03 


LDA 

#$03 

03B0- 

85 

37 


STA 

$37 

03B2- 

4C 

EA 

03 

JMP 

$03EA 

03B5- 

2C 

90 

C0 

BIT 

$C090 

03B8- 

30 

FB 


BMI 

$03B5 

03BA- 

20 

07 

Cl 

JSR 

$C107 

03BD- 

48 



PHA 


03BE- 

AD 

F9 

05 

LDA 

$05F9 

03C1- 

85 

24 


STA 

$85 

03C3- 

68 



PLA 


03C4- 

60 



RTS 


Now return 

to 

basic 

with 

3D0G. 
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SAVING THE PATCH TO DISK: 

The patch oust be in memory before the printer can be used at the 
higher speeds or with the TABbing feature. Save the patch by typing 
BSAVE PATCH, A$3A0, L$25. 

USING THE PRINTER: 

The first time you want to use the printer you must load the patch and 
initialize the interface. From immediate mode type 
BLOAD PATCH 
CALL 928. 

This may be done in a program,by entering 
100 PRINT D$;"BLOAD PATCH": CALL 928 
assuming that D$ is a control-D. 

If in the course of the program you need to turn off the printer, type 
PR 00 

or in a program enter 
200 PRINT D$;"PR00" 

Then to reconnect the printer, all that is required is 
CALL 938 or from a program 
300 CALL 938. 

NOTES: 

If the printer does not print after the CALL 928, it is probably 
sending the opposite polarity busy signal. The patch can be changed 
to recognize with 
POKE 952,16. 

If this doesn't work, have the printer checked. 


The modification allows the speed, column width, and other variables 
to be changed with the POKES in the manual. 







INTERNATIONAL 
APPLE CORE 

P. O. BOX 976, DALY CITY, CALIFORNIA 94017 USA 


APNOT 


APPLE POST - Hailing List Maintenance the Apple Way 

Apple P 06 1 la a mailing list system designed for your Apple that allows you to 
enter, edit and store names, addresses and telephone numbers. When your Apple 
Computer System is attached to a compatible printer, Apple Post will also 
print mailing labels, address and telephone lists, and your personal zip code 
directory. 

BENEFITS 

Apple Post... 


• Allows small businesses to take advantage of direct mail 
to customers, because it uses the power of the Apple 
computer to maintain customer lists and print mailing 
labels... 




• Locates names that you wish to modify or which may have 
been misspelled during data entry, through its phonetic 
search routines... 

e Provides you with the capability to perform demographic 
mailings quickly and easily, because it will print 
addresses by specified zip codes or other identifiers 
through its special search routines... 

• Offers you the option of printing complete or specified 
portions of any list for your review or files through 

1 ts select routine... 

• Automatically prints mailing labels of completed or 
selected mailing lists ‘through its labels routine. 

APPLE POST - A CLOSER LOOK 

An Apple Post list will hold approximately 500 name and address records on a 
single diskette, for use with a two-drive system. A maximum of 2,590 records, 
or five full diskettes, may be kept online at the same time with a six drive 

system. If you are going to be creating large lists, consider the possibility 
of breaking them up into smaller lists. For example, a subscription liBt for 
a monthly magazine could be broken into one list for the subscriptions that 
would expire in January, a second for those that would expire In February, 
etc. This would allow Apple Post to handle over 30,000 subscriptions with six 
drives, or 6,000 with two drives. 


Learning the function of each Apple Post command is all it takes to begin 
using the Apple Post system. These commands appear in the VALID COMMAND LIST 
at the beginning of the program. A few are detailed here to give you a 
feeling for the program. 


EXPLAIN may be used to display a brief three-line summary of any listed 
command in the system. It's especially helpful if you forget what a certain 
command will do. 

This application note has been provided by an Apple Computer user. The International Apple Core does not guarantee the accuracy of this in¬ 
formation in any way and cautions that modifications may void a manufacturer's warranty. The International Apple Core is a non-profit or¬ 
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The ENTER command permits you to add new entries to the Apple Post name and 
address list* After selecting this command, your screen will display the NEW 
ENTRY preformatted screen. 

Most of the entries are self-explanatory. The ATTENTION line is a free line 
of 20 characters which is printed before the name line on mailing labels 
produced by the LABELS command. If the name line contains the name of a 
company, the attention line could contain the name of an individual or 
department within the company. 

The SORT KEY is the line used by the Apple Post system to decide where on the 
diskette to file the entry. All entries are stored in dictionary order by 
sort key. The sort key line cannot be empty. When a name and address is 
first entered, a default reply will appear on the sort key line, for example, 
the person's last name. If you wish to change the sort key, type the new 
entry and the default reply will disappear as you type over it. 

To "flag" or identify some names as belonging to special groups, Apple Post 
provides the UTILITY line. It will be referenced when you use the SELECT 
command to specify a group or groups for which you need to print a listing or 
mailing labels. 

The EDIT command allows you to modify any line of a name and address record, 
except for the sort key line, or delete the entire entry. 

If you are trying to locate a certain name and you're not sure of the way you 
6 pelled it during entry, you will use the FIND command. The spelling and 
spacing of the name need not be identical to what was entered; the Apple Post 
system will search for any entries that are phonetically similar to the one 
you have specified. 

The ZIPFIND command selects name and address records by Zip Code and permits 
you to modify any line of the names and addresses in the list. 

The Apple Post manual explains each command in detail. 

TECHNICAL SPECIFICATIONS 


Language: Written in Applesoft BASIC. 
Function: Mailing List Maintenance 
Maximum Size of an Online List: 2590 names 


Field Sizes: 

Name 

Street Address 
City & State 
Zip Code 
Attention Line 
Telephone Number 
Sort Key 
Utility Field 


25 characters 
25 characters 
20 characters 
9 characters 
20 characters 
12 characters 
10 characters 
10 characters 


Record Sizes: 

Name & Address Files 
Soundex Index File 
Zip Code Index File 


155 bytes 
17 bytes 
17 bytes 
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Disk Drive Requirements: 
1 to 500 Names 
501 to 1000 Names 
1051 to 1570 Names 
1571 to 2105 Names 
2106 to 2590 Names 


2 drives 

3 drives 

4 drives 

5 drives 

6 drives 


THE APPLE POST PACKAGE 
Order No. A2D0013 

With your Apple Post order, you will receive: 

• One (1) Apple Post diskette; 

• Apple Post Mailing List System 
Manual. 

SYSTEM CONFIGURATION 






To use Apple Post, you will need: 

• Apple II (with Applesoft II 
Firmware Card), or Apple II 
Plus, each with 32K memory; 

or 

• Apple II or Apple II Plus, 
each with the Apple Language 
System and 48K memory; 

• Two (2) Apple Disk II drives, 
one with controller; 

• a compatible printer* (optional); 

• a printer controller card* 
(optional); 

* Note: The Apple Computer System 
works with several printers and 
appropriate controller cards, 
including those specified below: 

• Centronics 

Card: Centronics Printer 

Interface Card (Apple 
Product A2B0007) 

• Printronix 

Card: Parallel Interface Card 
(Apple Product A2L0004) 

• Qume Sprint 5, Diablo Hyterm, and 
NEC Spinwriter 5510R 

Card: High Speed Serial Inter¬ 
face Card (Apple Product 
A2B0005) with P8-02 PROM 
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Jpper/lower Case and Special Characters 
This application note will describe a Method of changing the Apple X 
coMPUter so that control of upper and lower case is controlled with 
the shift key. This Modification is for use with the Language System 
and includes a change to the BIOS so that upper and lower case can be 
used with the text editor supplied with the Language System as well as 
all user programs. In addition* all special characters like 0* _* "i 
s * \» C* !» >» A » and -C may be entered usind the normal Apple X 

keyboard. This application note was prepared on an Apple X system 
equipped with this modification. 

There are three parts to the complete modification. The hardware 
additions described here void the warranty on the Apple X computer. 

The first part is to install a lower case display adapter like the Dan 
Paymar unit available from your local computer store or from several 
mail order houses. This allows the hardware to display the lower case 
characters once they are placed in the proper memory location. 

The second part of the chande requires that the shift key be wired to 
the third switch port on the dame socket. If you are usind SU2 for 
something else already* then you will have to chande the program or 
lose your current use of SU2. SW2 was selected since generally there 
are two paddle controls with one switch on each one (SWO and SW1) and 
because this hardware chande was described in an early WOZPAK from 
Apple Pudetsound Program Library Exchange (A.P.P.L.E.). This 
modification is necessary so that the program chande described later 
' can tell if the shift key is pressed regardless of the condition of 
any other key. 

If you do not already have this modification* this is how to install 
it. First* unplud the computer from the wall outlet and remove the 
keyboard cable plug from the main board. This electrically disconnects 
the keyboard from the rest of the computer. Next turn the computer 
over and remove the bottom cover from the computer. You now have two 
pieces* one piece is the lidht colored plastic piece containing the 
keyboard* and the other piece contains the main board and power 
supply. Next locate the area on the keyboard circuit board immediately 
under either one of the shift keys, you will notice that there are 
three short solder coated wires sticking out of the board. One of 
these wires has no foil leading away from it. Another one of the wires 
has a foil leading off and connecting to many other keys on the 
keyboard* this is the around. The third one has a foil leading only to 
the other shift key and one or two other places* this is the one we 
want. Carefully solder a small diameter wire to the short wire 
protruding from the circuit board Just identified. Next find the 
socket on the circuit board that has the- cable plugged into it that 
goes to the main board. Locate an unused pin on that socket and 
carefully solder the other end of the wire to that pin. Pin 4 was used 
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in the prototype. This completes the modifications directly on tri* 
keyboard. 

Now we have to Set that connection over to the Same raddle. Take the 
other assembly with the main board and power supply and remove the 
cable from the power supply to the mam board. Then remove the main 
board from the metal bottom plate. Turn the main board over and 
carefully solder a wire from the keyboard connector socket* same pin 
number as on the keyboard circuit board* to pin 4 on the Same raddle 
socket. This connects the keyboard shift key to SW2. 

Now put everything back together in the exact reverse order that you 
took it apart. You now have a direct connection from the shift key to 
SU2. Plus everything back in and make sure that everything operates 
normally. 

Now we will test the hardware modification. Key in the following BASIC 
program: 

100 PRINT PEEK(-16285) 

200 GOTO 100 

Now run the program. The program looks at SW2 and prints out the value 
on the display screen. The value will be greater than or enuai to 128 
with the shift key not pressed* and will be less than 128 with the 
shift key pressed. Note that this has nothing at all to do with normal 
keyboard operation. 

The third part of the modification is a change to the PASCAL BIOS to 
check the condition of the shift key under certain conditions and 
change the data actually read from the keyboard depending on the state 
of the shift key. The source for the patch is attached to this 
article. The patch program essentially reads an unchanged version of 
SYSTEM.APPLE from volume APPLE1* makes modifications in memory* and 
writes out the modified version on whatever disk is in unit number 4. 
The program is written to allow updating on a single drive system. The 
patch is set up to leave all characters in lower case unless the shift 
key is pressed. Special characters are obtained by pressing shift and 
control at the same time as follows: 

Shift control P generates 0 
Shift control B generates -C 
Shift control G generates > 

Shift control I generates " 

Shift control J generates ! 

Shift control K generates C 
Shift control L generates \ 

Shift control h generates 2 
Shift control N generates * 

Shift control 0 generates _ 

Shift control ft generates NULL 
Shift control U generates '' 

Shift control Q is a shift lock and acts as a toggle. Start-up leaves 
the Apple keyboard as it came from the factory. Pressing shift control 
Q once makes it handle lower case and special characters. Press it 
again and it is back to factory operation. 

Many times I have tried to get ahead of the computer only to find tnai 
I typed too quickly. This patch includes a feature that sounds a beep 
when the computer accepts a keystroke. The use of this feature will 
become obvious with use. 



To apply the patch to the BIOS? enter the attached PASCAL pro3raM? 
coMPile it? and eXecute it. The proaraM will ask you to put APPLE1 lr. 
device #4? read SYSTEM.APPLE? wake the changes? ask you to put, the 
target disk in device #4? and writes out a Modified SYSTEM.APPLE. 
After the proaraM is executed? you must re-boot the entire systew by 
turning the power off and then on or by entering an 'H' froM the 
connand level. 

That is all there is to it. This Modification has been on mi» Apple DC 
for several Months and there have been absolutely no probleMS. 


PROGRAM CHANGE? 


VAR BUFFER: PACKED ARRAY C0..31?0..511D OF 0..255? 
F:FILEJ 

I:integer; 

FUNCTION HEX(X:CHAR):INTEGER? 

BEGIN 

IF X IN C'O'..'9'D THEN 
HEX:=0RD<X)-48 
ELSE 

IF X IN C'A'..'F'3 THEN 
HEX:=QRD< X )-55 
ELSE 

HEX:=32767 
END?(*HEX#) 




PROCEDURE CB(L0C?DAT:STRING)? 

VAR L»LN»LI?L2?L3?L4?REC?DISP?D1sINTEGER? 
BEGIN 

Ll:=HEX(L0CE13)? 

L2:=HEX( L0CC2II)? 

L3:=HEX( L0CC33)? 

L4:=HEX( L0CE43)? 

REC:=(Ll-13)#8+L2 DIV 2? 

DISP:=(L2 HOD 2)*256+L3*16+L4? 
LN:=LENGTH( DAT) DIV 2? 

URITELN(LOC?'? '?DAT?'? ' ?LN >? 

FOR L:=l TO LN DO BEGIN 
D1:=HEX( DATCL+L-13>*16+HEX< DATCL+LH )? 
WRITELN<REC?'? '?BISP?'? ' ?D1)? 

BUFFERCREC?DISP3:=D1? 

DISP:=DISP+1? 

IF DISP=512 THEN BEGIN 
REC:=REC+1? 

DISP:=0? 

END? 

END? 

END? <«CB*) 
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PROCEDURE READIN* 

VAR XXXs char; 

BEGIN 

WRITELN< 'INSERT "APPLETS AND PRESS "RETURN"'); 
READ(XXX); 

RESETt F»'APPLE1:SYSTEM.APPLE')5 
I:=BLQCKREAD< F.BUFFER . 32); 

CLOSE(F); 

end; 

PROCEDURE URITEOUT5 
VAR XXX: CHAR; 

BEGIN 

URITELN('INSERT TARGET DISKETTE AND PRESS "RETURN"')'. 
READ* XXX); 

RESET< F.'«4:SYSTEM.APPLE' ); 

I:=BLOCKWRITE( F.BUFFER.32 >; 

CLOSE(F); 

end; 





BEGIN 

readin; 

CB('D8E8' 
CB( 'D69F' 
CB< 'D6A1' 
CB('DABE' 
CB('DAC1' 
CB('DAC2' 
CB('DAC4' 
CB( 'DAC6' 
CB('DAC7' 
CB('DAC9' 
CB< 'DACC' 
CB( 'DACD' 
CB('DACF' 
CB('DADO' 
CB('DAD2' 
CB('DAD4' 
CB('DAD7' 
CB<'DAD9' 
CB('DADB' 
CB( 'DADE' 
CB('DAE1' 
CB('DAE3' 
CB<'DAE6' 
CB<'DAE9' 
CB('DAEB' 
CB( 'DAEC' 
CB('DAED' 
CB( 'DAEF' 
CB('DAF1' 
CB<'DAF3' 
CB<'DAF5' 
CB('DAF8' 


'EAEAEAEA' >;<*NO-OP CONVERT TO UPPER CASE*) 

'297F' ); <*AND tt*7F RESET HIGH ORDER BIT*) 
'20BEDA' );( *JSR $DABE PATCH*) 

'8D1OCO' );(*RESET KBD STROBE*) 

'48'); (*PHA SAVE INPUT DATA*) 

'A006'); (*LDY #$06*) 

'A200' )5 ( *LDX #$00# ) 

'CA'); (*DEX* > 

'DOFD' ); ( *BNE $BAC6* ) 

'AD30C0' );(*LDA $C030 SPEAKER*) 

'88'); (*DEY*) 

'D0F5'); (*BNE $DAC4* ) 

'68')? (*PLA RESTORE INPUT DATA*) 

'C911' )? (*CMP #$11 TEST FOR CONTROL Q# ) 

'D012'); (*BNE $DAE6 BRANCH IF NOT CONTROL Q*) 
'2C63C0' );(*BIT $C063 TEST SHIFT*) 

'300B'); (*BNE $DAE6 BRANCH IF NOT SHIFT*) 
'A980'); ( *LDA #$80* ) 

'4DECDA' )H #EOR $DAEC TOGGLE THE SWITCH*) 

'8DECDA' );(*STA $DAEC STORE IT BACK*) 

'6868'); (*PLA PLA REMOVE RETURN ADDRESS*) 

'4C25D7' );< *JMP $D725 JUMP BACK. NO DATA*) 

'2CECDA' );( *BIT 4DAEC TEST THE SWITCH*) 

'1002')? (*BPL $DAEA BRANCH IF NOT LOCKED*) 

'60'); ( *RTS RETURN WITH ORIGINAL DATA*) 

'80'); USWITCH LOCATION. FACTORY SETTING*) 
'C941'); (*CMP tt$41 COMPARE FOR 'A'*) 

'900C'); (*BCC $DAFD BRANCH IF LT A'*) 

'C95B'); (*CMP «$5B COMPARE FOR Z+l* ) 

'B01F'); <*BCS $DB14 BRANCH IF GREATER THAN 'Z'*> 
'2C63C0' );< *BIT $C063 TEST SHIFT KEY*) 

'1002'); < *BPL $DAFC BRANCH IF SHIFT PRESSED*) 
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CB<'BAFA'f'6920')! < *ABC 8*20 CONVERT TO LOWER CASE# ) 

CB('DAFC'»'60' )! (#RTS RETURN TO CALLER#) 

CB('DAFD'»'C940' )5 ( *CMP 8$40 COMPARE FOR 8# / 

CB('DAFF'f'D003')i (#BNE $BB04 BRANCH IF NOT 8*) 

CB( 'DBOl' t 'A950' )5 ( #LDA 8*50 SET CAP P* ) 

CB( 'DB03' t'60' )! <*RTS RETURN WITH CAP P* ) 

CB<'DB04'» C920')! (*CMP 8*20 COMPARE FOR SPACE*) 

CB( 'DB06'»'9001' )» (*BCC *DB09 BRANCH IF CONTROL CHAR*) 

CB<'DB08'> '60' )» (*RTS RETURN IF NOT CONTROL CHAR*) 

CB('DB09'»'2C63C0' >!<*BIT $C043 TEST SHIFT KEY*) 

CB('DBOC' t' 1001' )? (*BPL *DBOF BRANCH IF SHIFT*)! 

CB( 'DB0E' t'60 1 )! (*RTS RETURN IF CONTROL ONLY*) 

CB('DBOF'*'AA' )! ( *TAX TRANSFER A TO X*) 

CB('DB10'i'BD23DB' )»(#LDA $DB23»X LOAD NEW VALUE FROM TABLE*) 
CB<'DB13'»'£0')! <#RTS RETURN WITH NEW CHAR*) 

CB<'DB14'»'C95E')» (*CMP 8$5E COMPARE FOR **) 

CB('DB16'i'D003' )! ( *BNE *DB1B BRANCH IF NOT *#) 

CB('DB18'»'A94E' )! (*LDA 844E CHANGE TO CAP N*> 

CB<'DB1A'»'60')! ( *RTS RETURN WITH CAP N* > 

CB('DB1B'»'C95D' )» (*CMP 8*5D COMPARE FOR 3*) 

CB('DB1D' t 'D003' )! ( *BNE *DB22 BRANCH IF NOT#) 

CB<'BBlF't'A94D')! ( *LDA 8*4D CHANGE TO CAP M* ) 

CB('DB21'»'60' )! (*RTS RETURN WITH CAP M*) 

CB('DB22'f'40' )» (*RTS RETURN WITH WHATEVER*) 

CB<'DB23' t '40017B0304051C7D1B' )!( #TABLE FOR CHANGE...*) 

CB( 'DB2C'»'7E7C5B5C5D5E5F1011' )!(*-OF SHIFT PLUS CNTL...*> 

CB('DB35'»'OOISIEAOIF^I^FIA' )!(#....TO SPECIAL-*) 

CB< 'DB3E'»'1B1C5D5E1F' )!(*....CHARACTERS*) 

URITEOUT! 

END. 
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(*************************************) 


(* 


*) 

(* 

LINEFEED 

*) 

(* 


*) 

(* 

INITIALIZE BIOS TO FILTER OUT 

*> 

(* 

ANY LINEFEEDS SENT TO PRINTER. 

*) 

(* 

- 

*) 

(* 

UCSD SYSTEM OF 23 FEB 79 FOR 

*) 

- (* 

APPLE II HAS A LINE-FEED FLAG 

*) 

(* 

AT LOCATION BFOF HEX. 

*) 

(* 

IF THIS FLAG IS SET TO 255, 

*) 

(* 

LINE-FEEDS WILL BE SUPPRESSED. 

*) 

(* 

IF IT IS SET TO 0 (DEFAULT), 

*) 

(* 

THEN LINE-FEEDS WILL BE PASSED. 

*) 

c* 


*) 


(*************************************) 


PROGRAM LINEFEED; 


TYPE PA=PACKED ARRAY[0..1] OF 0..255; 
TWOFACE=RECORD CASE BOOLEAN OF 
TRUE: (INT:INTEGER); 
FALSE: (PTR:“PA); 

END; 

VAR CHEAT:TWOFACE; 

BEGIN 

CHEAT.INT:=-16625; (* BFOF HEX *) 

CHEAT.PTR“f0J:=255; (* SET FLAG *) 
END. 
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PROGRAM TAKE280; 


(************************************************************) 
(* *) 
(* ACCEPTS 280 BLOCKS FROM REMIN AND WRITES TO #5 *) 

( 


*>. 


V '■ 

(************************************************************) 


CONST REMIN°* 7; 
REMOUT-8; 


VAR BUFFER: PACKED ARRAY (0..2048) OF INTEGER; 
I.SUM,BLOCK,TRACK: INTEGER; 

REPLY: PACKED ARRAY [0..1] OF CHAR; 

CH: CHAR; 


BEGIN (* PROGRAM *) 

REPLY [0] :*°'A'; 

REPEAT (* FOR EACH DISK *) 

WRITELN('PUT BLANK DISK IN 05 AND PRES RETURN'); 

READLN; 

UNITCLEAR(REMIN); 

WRITELN('FIRE WHEN READY..'); 

SUM:=0; 

FOR TRACK:=0 TO 34 DO 
BEGIN 

BLOCK:=8*TRACK; 

UNITREAD(REMIN,BUFFER,4098,0,12); 

FOR I:=0 TO 2047 DO SUM:*°SUM+BUFFER[ 1 ]; 

IF BUFFER[2048]»SUM THEN 
BEGIN 

UNITWRITE(5,BUFFER,4096,BLOCK); 

WRITE('•; 

UNITWRITE(REMOUT,REPLY,1); (* SAY READY FOR MORE *) 

END 
ELSE 
BEGIN 

WRITE('CHECKSUM ERROR'); 

EXIT(PROGRAM); 

END; 

END; 

WRITELN; 

WRITE('COPY ANOTHER DISK ? '); 

READ(CH); 

WRITELN; 

UNTIL CHO'Y'; 

WRITELN;WRITELN('THAT"S ALL FOLKS...'); 

END. 


This application note has been provided by an Apple Computer user. The International Apple Core does not guarantee the accuracy of this in¬ 
formation in any way and cautions that modifications may void a manufacturer's warranty. The International Apple Core is a non-profit or¬ 
ganization uneffilliated with Apple Computer. Inc. or any other manufacturer. Apple II, Applesoft, and Apple Computer are trademarks of 
Apple Computar, Inc. 
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PROGRAM GETREM; 

(***********************************************************) 
(* *) 

(* READS FROM REMIN AND WRITES TO THE DISK *) 

<* *) 

(***********************************************************) 

CONST REMIN-7; 

VAR BUFFER: PACKED ARRAY [0..16383] OF 0..255; 

BLOCK,NBLOCKS,BYTES,UNITNUM: INTEGER; 

CH: CHAR; 

F: FILE; 

FNAME: STRING[30]; 

PROCEDURE WRITEFILE; 

BEGIN 

(*$I-*) 

REPEAT 
WRITELN; 

WRITE('TO WHAT FILE ? '); 

READLN(FNAME); 

REWRITE(F,FNAME); 

UNTIL IORESULT-O; 

(*$I+*) 

IF BLOCKWRITE(F,BUFFER,NBLOCKS)<>NBLOCKS 
THEN WRITELN('FILE WRITE ERROR.'); 

CLOSE(F.LOCK); 

END; 


PROCEDURE WRITEUNIT; 

BEGIN 

WRITELN; 

WRITE('WHICH UNIT NUMBER ? '); 

READLN(UNITNUM); 

WRITE('STARTING BLOCK ? '); 

READLN(BLOCK); 

UNITWRITE(UNITNUM,BUFFER,BYTES,BLOCK,12); 
END; 




This application note has been provided by an Apple Computer user. The I nternational Apple Core does not guarantee the accuracy of this In¬ 
formation in any way and cautions that modifications may void a manufacturer's warranty. The International Apple Core is a non-profit or¬ 
ganization unaffilliated with Apple Computer, Inc. or any other manufacturer. Apple II, Applesoft, and Apple Computer are trademarks of 
Apple Computer, Inc. 

G4-I 





BEGIN 

REPEAT (* FOR EACH TRANSFER *) 

PAGE(OUTPUT); 

REPEAT 

WRITE('READ HOW MANY BLOCKS FROM REMIN ? '); 
READLN(NBLOCKS); 

UNTIL NBLOCKS<-32; 

BYTES:-NBLOCKS*512; 

WRITELN('FIRE WHEN READY...'); 

UNITCLEAR(REMIN); 

UNITREAD(REMIN,BUFFER,BYTES,0,12); 
WRITELNC'ALL '.NBLOCKS,' RECEIVED.'); 

REPEAT 

WRITE('F(ILE, U(NIT, Q(UIT '); 

READ(CH); 

UNTIL CH IN ('F'.'U'.'Q']; 

CASE CH OF 

WRITEFILE; 

'Q': EXIT(PROGRAM); 

END; 

WRITELN; 

WRITE('DONE WRITING. GET SOME MORE ? '); 

REPEAT 

READ(CH); 

UNTIL CH IN {'Y'.'N'J; 

END. 
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PROGRAM TRANSFER; 

(**************************************************************» 

(* *) 

(* SENDS AND RECEIVES FILES OR WHOLE VOLUMES OVER SERIAL LINE *) 
(* *) 

(**************************************************************j 


CONST VERSION='A.l'; (* CHANGE WITH EACH REVISION *) 
REMIN“7; 

REMOUT=8; 

CONSOLE“l; 


TYPE SETOFCHAR«SET OF CHAR; 

BUFTYPE=RECORD 

DATA: PACKED ARRAY[0..511) OF 0..255; 
CKSUM: INTEGER; 

END; 

VAR BUFFER:BUFTYPE; 

CH: CHAR; 

GOODKEY: BOOLEAN; 

LEADIN,ERASEOL,ERASEOS: CHAR; 


FUNCTION SUM512(VAR BUFFER:BUFTYPE): INTEGER; 
EXTERNAL; 


PROCEDURE SEND; 
FORWARD; 


PROCEDURE RECEIVE; 

FORWARD; 

PROCEDURE GETCRTINFO; 

VAR BUFFER: PACKED ARRAY[0..511] OF CHAR; 
I: INTEGER; 

F: FILE; 

BEGIN 

RESET(F,'‘SYSTEM.MISCINFO'); 

I:“BLOCKREAD(F,BUFFER,1); 

CLOSE(F); 

LEADIN:“BUFFER[62]; 

ERASEOS:^BUFFER[65]; 

ERASEOS:^BUFFER[64]; 

END; 


PROCEDURE CLEARSCREEN; 
BEGIN 

GOTOXY(O.O); 

WRITE(LEADIN,ERASEOS); 
END; 


PROCEDURE CLEARLINE; 
BEGIN 


This application lotoses £oSn pro". r'-V'^’an Apple Computer user. The International Apple Coro does not guarantee the accuracy of this in¬ 
formation In any way and cautions that modifications may void a manufacturer's warranty. The International Apple Core is a non-profit or¬ 
ganization unaffllliatad with Applo Computer, Inc. or any other manufacturer. Applo II, Applesoft, and Apple Computer are trademarks of 
Applo Computer, Inc. 
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END; 


PROCEDURE PROMPTAT(Y: INTEGER; S: STRING); 
BEGIN 


GOTOXY(0,Y); 
WRITE(S): 
CLEARLINIi; 
END; 


FUNCTION GETCHAR(OKSET: SETOFCHAR)I CHAR; 

VAR CH: CHAR; 

GOOD: BOOLEAN; 

BEGIN 

REPEAT 

READ(KEYBOARD,CH); 

GOODjCH IN OKSET; 

IF GOOD THEN WRITE(CH) ELSE WRITE(CHR(7)); 
UNTIL GOOD; 

GETCHAR:=CH; 

END; 


PROCEDURE SENDREPLY(S: STRING); 

BEGIN 

UNITWRITE(REM0UT,S,5,0,12); 

END; 

FUNCTION GETBLOCK:BOOLEAN; 

(* RETURNS TRUE IF CHECKSUM MATCHED *) 

BEGIN 

UNITREAD(REMIN,BUFFER,514,0,12); (* GET DATA AND CHECKSUM *) 

GETBLOCK:“BUFFER.CKSUM=SUM 512(BUFFER); 

END; 

PROCEDURE SENDBLOCK; 

(* SEND BLOCK + CHECKSUM AND REPEAT UNTIL REPLY 'GOOD' *) 

VAR REPLY: STRING(4]; 

I: INTEGER; 

BEGIN 

REPEAT 

BUFFER.CKSUM:=SUM512(BUFFER); 

UNITWRITE(REMOUT,BUFFER,514,0,12); (* SEND DATA AND CHECKSUM *) 
UNITREAD(REMIN,REPLY,5,0,12); 

UNTIL REPLY='GOOD'; 

FOR I:-l TO 100 DO; 

END; 


PROCEDURE GETVOLUME; 

(* GET WHOLE VOLUME, INCLUDING DIRECTORY *) 

VAR BLOCK,NBLOCKS,DRIVE,ERRORS,TOTALSUM,SUM: INTEGER; 
BEGIN 
(*$I-*) 

REPEAT 

PROMPTAT(4,'RECEIVE HOW MANY BLOCKS ? '); 

READLN(NBLOCKS); 

UNTIL I0RESULT=0; 
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IF NBLOCKS=0 THEN EXIT(RECEIVE); 

REPEAT 

PR0MPTAT(6,'WRITE TO WHICH DRIVE ? # ); 

READLN(DRIVE); 

UNTIL (IORESULT=0) AND (DRIVE IN [4,5,9,10,11,12]); 

(*$!+*) 

WRITELN; 

WRITE('PUT BLANK DISK IN 0',DRIVE,' AND PRESS RETURN.'); 

UNITCLEAR(CONSOLE); (* FLUSH TYPE-AHEAD *) 

READLN; 

WRITELN; 

WRITELN('FIRE WHEN READY...'); 

UNITCLEAR(REMIN); 

WRITELN; 

TOTALSUM:=0; 

FOR BLOCK: =0 TO NBLOCKS-1 DO 
BEGIN 

ERRORS:oO; 

REPEAT 

IF GETBLOCK THEN 
BEGIN 

UNITWRITE (DRIVE, BUFFER, 512, BLOCK, 12) *, 

WRITE('.'); 

IF (BLOCK MOD 35)=34 THEN WRITELN; 

SENDREPLY('GOOD'); 

END 

ELSE 

BEGIN 

ERRORS:=ERR0RS+1; 

WRITE(ERRORS); 

S ENDREPLY('BAD'); 

IF ERRORS>3 THEN 
BEGIN 
WRITELN; 

WRITELN(CHR(7),'MORE THAN 3 CHECKSUM ERRORS'); 
WRITELN('PROGRAM ABORTED'); 

EXIT(PROGRAM); 

END; 

END; 

UNTIL ERRORS°0; (* OR EXIT WITH ERRORS > 3 *) 

TOTALSUM: **TOTALSUM+BUFFER. CKSUM; 

END; 

WRITELN; 

WRITELN('ALL '.NBLOCKS,' BLOCKS WRITTEN TO #'.DRIVE); 

SUM:=0; 

FOR BLOCK:=0 TO NBLOCKS-1 DO 
BEGIN 

UNITREAD(DRIVE,BUFFER,512,BLOCK,12); 

S Uli: =S UM+SUM 512 ( BUFFER ) ; 

END; 

IF SUM=TOTALSUM THEN WRITELN('MASTER CHECKSUM MATCHES'); 

ELSE WRITELN(CHR(7) ,'ERROR: MASTER CHECKSUM DOESN"T MATCH') 
END; (* GETVOLUME *) 


PROCEDURE SENDVOLUME; 



(* SEND WHOLE VOLUME, INCLUDING DIRECTORY *) 

VAR BLOCK,NBLOCKS,DRIVE: INTEGER; 

BEGIN 

(*$!-*) 

REPEAT 

PROMPTAT(4,'SEND HOW MANY BLOCKS ? '); 

READLN(NBLOCKS); 

UNTIL IORESULT=0; 

IF NBLOCKS=0 THEN EXIT(SEND); 

REPEAT 

PROMPTAT(6,'READ FROM WHICH DRIVE ? '); 

READLN(DRIVE); 

UNTIL (IORESULT-O) AND (DRIVE IN [4,5,9,10,11,12]) 
(*$I+*) 

WRITELN; 

WRITE('PUT SOURCE IN #',DRIVE,' AND PRESS RETURN') 
UNITCLEAR(CONSOLE); (* FLUSH TYPE-AHEAD *) 
UNITCLEAR(REMIN); 

READLN; 

FOR BLOCK:=0 TO NBLOCKS-1 DO 
BEGIN 

UNITREAD(DRIVE,BUFFER,512,BLOCK,12); 

SENDBLOCK; 

WRITE('•'); 

IF (BLOCK MOD 35)-34 THEN WRITELN; 

END; 

WRITELN; 

WRITELN; 

WRITELN('ALL ',NBLOCKS,'BLOCKS SENT FROM 0 ' .DRIVE) 
END; (* SENDVOLUME *) 

PROCEDURE GETFILE; 

VAR MESSAGE: STRING[4J; 

I,BLOCK,ERRORS: INTEGER; 

F: FILE; 

FNAME: STRING[30]; 

BEGIN 

(*$I-*) 

REPEAT 

PROMPTAT(4,'RECEIVE WHAT TEXTFILE ? '); 

READLN(FNAME); 

IF LENGTH(FNAME)“0 THEN EXIT(RECEIVE); 

IF POS (' .TEXT' , FNAME)«*0 THEN FNAME:«*CONCAT(FNAME 
REWRITE(F,FNAME); 

UNTIL IORESULT=0; 

(*$I+*) 

UNITCLEAR(REMIN); 

WRITELN; 

WRITELN('FIRE WHEN READY...'); 

WRITELN; 

BLOCK:=0; 

REPEAT 

UNITREAD(REMIN,MESSAGE,5); 

IF MESSAGE<>'DONE' THEN 
BEGIN 



IF GETBLOCK THEN 
BEGIN 

I:=BLOCKWRITE(F,BUFFER,1,BLOCK); 

BLOCK:=BLOCK+l; 

WRITE('.'); 

IF (BLOCK MOD 35)«*34 THEN WRITELN; 
SENDREPLY('GOOD'); 

END' 

ELSE 

BEGIN 

ERRORS:-ERRORS+l; 

WRITE(ERRORS); 

SENDREPLY('BAD'); 

IF ERRORS>3 THEN 
BEGIN 
WRITELN; 

WRITELN(CHR(7),'MORE THAN 3 ERRORS.') 
WRITELN('PROGRAM ABORTED'); 

EXIT(PROGRAM); 

END; 

END; 

END; 

UNTIL MESSAGE®'DONE'; 

WRITELN; 

WRITELN; 

WRITELN(BLOCK,' BLOCKS WRITTEN TO ',FNAME); 
CLOSE(F.LOCK); 

END; (* GETFILE *) 

PROCEDURE SENDFILE; 

VAR I,BLOCK: INTEGER; 

F: FILE; 

FNAME: STRING[30]; 

BEGIN 

UNITCLEAR(REMIN); 

WRITELN; 

(*$:-*) 

REPEAT 

PROMPTAT(4,'SEND WHAT TEXTFILE ? '); 

READLN(FNAME); 

IF LENGTH(FNAME)®0 THEN EXIT(SEND); 

RESET(F,FNAME); 

IF IORESULToO THEN 
BEGIN 

FNAME:«=CONCAT(FNAME, ' .TEXT') ; 

RESET(F,FNAME); 

END; 

UNTIL IORESULT=0; 

(*$I+*) 

WRITELN; 

WRITE('PRESS RETURN TO SEND '.FNAME,' '); 

UNITCLEAR(CONSOLE); 

READLN; 

WRITELN; 

UNITCLEAR(REMIN); 



^ BLOCK:»0; 

WHILE NOT EOF(F) DO 
BEGIN 

I:“BLOCKREAD(F,BUFFER,1,BLOCK); 

SENDREPLY('SYNC'); 

FOR I:«l TO 100 DO; 

SENDBLOCK; 

WRITE// ); 

IF {BLOCK MOD 35)-34 then writeln; BLOCK:-BLOCK+1; 

END; 

CLOSE(F); 

FOR I:«*l TO 100 DO; 

SENDREPLY('DONE'); 

WRITELN; 

WRITELN(BLOCK/ BLOCKS SENT FROM ',FNAME); 

END; 

PROCEDURE SEND; 

VAR CH: CHAR; 

BEGIN 

PROMPTAT(2/SEND F(ILE OR V(OLUME ? '); 
CH:-GETCHAR(['F'/f'/V'/v')) j 
CASE CH OF 

'F'/f': SENDFILE; 

'V'/v': SEND VOLUME; 

END; 

^ END; (* SEND *) 

PROCEDURE RECEIVE; 

VAR CH: CHAR; 

BEGIN 

PROMPTAT(2/RECEIVE F(ILE OR V(OLUME ? '); 

CH:«=GETCHAR( ('F'/f'/V' ,'v']); 

CASE CH OF 

'F'/f': GETFILE; 

'V'/v': GETVOLUME; 

END; 

END; (* RECEIVE *) 

BEGIN (* MAIN PROGRAM *) 

GETCRTINFO; 

CLEARSCREEN; 

REPEAT 

PROMPTAT(0,CONCAT('>TRANSFER: S(END, R(ECEIVE, Q(UIT '.VERSION)) 
CASE CH OF 

'S'/s': SEND; 

'R'/r': RECEIVE; 

END; 

UNTIL CH IN ['Q'/q'J; 

WRITELN; 

WRITELN('THAT"S ALL FOLKS...'); 

END. 
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.MACRO POP 

pla 

STA Z1 
PLA 

STA Zl+1 
.ENDM 


.MACRO PUSH 

LDA Zl+1 

PHA 

LDA %1 

PHA 

.ENDM 

.FUNC SUM512,1 


; FUNCTION SUM512(VAR BUFFER): INTEGER; 
» 

RETURN .EQU 0 
BUFFER .EQU 2 
SUM .EQU 4 

POP RETURN 

PLA 

PLA 

PLA 

^ PLA 

POP BUFFER 
LDY //0 

m iifti+i 

LOOPl CLC 

LDA SUM 
ADC 0BUFFER, Y 
STA SUM 
BCC NEXT1 
INC SUM+1 
LOOP2 CLC 

LDA SUM 
ADC @BUFFER,Y 
STA SUM 
BCC NEXT2 
INC SUM+1 
NEXT2 INY 

BNE LOOP2 
PUSH SUM 
PUSH RETURN 
RTS 
.END 
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PROGRAM FOREIGN; 

(**********************************************************) 
(* *) 

(* THIS PROGRAM ALSO USES THE ASSEMBLY ROUTINE "GETTEXT" *) 
(* *) 

(**********************************************************) 


CONgT BUFLEN 0 I 6 OO; (* BUFFER SIZE IN BYTES *) 

LINELEN-132; (* MAX LINE LENGTH ALLOWED IN OUTPUT *) 

VAR BUFFER: PACKED ARRAY [0..BUFLEN] OF CHAR; 

NLINES,I,MBYTES,SKIPBUFS,SKI PBYTES,BUFPTR: INTEGER; 

S: STRING[255]; 

FNAME: STRING[30]; 

F: TEXT; 

FUNCTION GETTEXT(VAR BUFFER,MAXBYTES,SKIPBYTES: INTEGER): INTEGER; 

EXTERNAL; 

PROCEDURE GOODBYE; 

BEGIN 

WRITELN;WRITELN;WRITELN('THAT"'S ALL FOLKS...'); 

EXIT (PROGRAM) ; 

END; 

FUNCTION GETSTRING: BOOLEAN; 

(* GET STRING S FROM BUFFER. RETURN FALSE IF NO MORE IN BUFFER *) 

BEGIN 

IF BUFPTR >= NBYTES THEN GETSTRING:“FALSE 
ELSE 
BEGIN 

I:“SCAN(NBYTES-BUFPTR,=CHR(13).BUFFER[BUFPTR]); 

GETSTRING:=TRUE; 

IF I > LINELEN THEN (* GET PORTION OF LONG LINE *) 

BEGIN 
(*$R—*) 

S[0]:=CHR(LINELEN); 

MOVELEFT(BUFFER[BUFPTR],S[1].LINELEN); 

(*$R+*) 

BUFPTR:-BUFPTR+LINELEN; 

I:“I-LINELEN; 

END 

ELSE 

BEGIN 

(*$R-*) 

S [0]:=CHR(I); 

MOVELEFT(BUFFER[BUFPTR],S[1],I); 

(*$R+*) 

BUFPTR:“BUFPTR+I+l; 

END; 

END; 

END; 

This application note has been provided by an Apple Computer user. The International Apple Core does not guarantee the accuracy of this In¬ 
formation In any way and cautions that modifications may void a manufacturer's warranty. The International Apple Core 1s a non-profit or¬ 
ganization unaffilliated with Apple Computer, Inc. or any other manufacturer. Apple II, Applesoft, and Apple Computer are trademarks of 
Apple Computer, Inc. 
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BEGIN 

REPEAT 

REPEAT 

WRITELN;WRITELN; 

WRITE('OUTPUT FILE NAME ? '); 

READLN(FNAME); 

IF FNAME■=" THEN GOODBYE; 

IF POS (' .TEXT', FNAME)*0 THEN FNAME:-C0NCAT(FNAME,' .TEXT'); 
REWRITE(F,FNAME); 

UNTIL' I0RESULT-0; 

(*$I+*) 

WRITELN('SKIP HOW MANY BYTES OF EACH LINE ? ); 

WRITE('(22 FOR TEDOS LISTINGS.) '); 

READLN(SKIPBYTES); 

WRITE('SKIP HOW MANY BUFFERS ? '); 

READLN(SKIPBUFS); 

NLINES:«0; 

WRITELN('FIRE WHEN READY...'); 

WRITELN('(PRESS RETURN WHEN TRANSFER DONE,)'); 

(*************************************************************) 


(* *) 
(* USE GETTEXT TO SKIP OVER THE FIRST SKIPBUFS BUFFERS. *) 

(* THIS LETS YOU BREAK UP BIG FILES INTO SMALLER ONES BY *) 

(* SENDING SEVERAL TIMES AND CAPTURING DIFFERENT PORTIONS *) 
(* OF THE TEXT. *) 

^ (* *) 


(*************************************************************) 

FOR I:»l TO SKIPBUFS DO 
NBYTES: M3ETTEXT(BUFFER,BUFLEN-2000,SKIPBYTES); 

(*************************************************************) 


(* *) 

(* DONE SKIPPING, GO GET THE DESIRED CHARACTERS *) 

(* STOP WHEN RETURN PRESSED OR BUFFER FULL *) 

(* *) 


(*************************************************************) 


NBYTES:^GETTEXT(BUFFER,BUFLEN,SKIPBYTES); 
WRITELN(NBYTES,' BYTES RECEIVED'); 
BUFPTR:»0; 

WHILE GETSTRING DO 
BEGIN 

WRITELN(F.S); 

NLINES:“NLINES+1; 

END; 

CLOSE(F,LOCK); 

WRITELN(NLINES,' LINES WRITTEN TO ',FNAME); 
UNTIL FALSE; 

END. 
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.MACRO POP 
PLA 
STA XI 
PLA 

STA Zl+1 
.ENDM 

.MACRO PUSH 

LDA Zl+I 

PHA 

LDA ZI 

PHA 

.ENDM 

.FUNC GETTEXT,3 




FUNCTION GETTEXT(VAR BUFFER; MAXBYTES,SKIPBYTES: INTEGER): INTEGER; 

RETURNS NUMBER OF BYTES READ FROM COM CARD SLOT 2 BEFORE CR 
PRESSED ON APPLE 


RETURN .EQU 0 
MAXBYTES .EQU 2 
BUFFER .EQU 4 
NBYTES .EQU 6 
CHARS .EQU 8 
SKBYTES .EQU OA 
SKCOUNT .EQU OC 
STATUS .EQU OCOAE 
DATA .EQU OCOAF 
KEYBOARD .EQU OCOOO 
KEYRESET .EQU OCOIO 


;UART STATUS REGISTER, 
{APPLE KEYBOARD 


COM CARD SLOT 2 ONLY 


POP RETURN 

PLA 

PLA 

PLA 

PLA 

POP SKBYTES 
POP MAXBYTES 
POP BUFFER 
LDA #0 
STA NBYTES 
STA NBYTES+1 
STA CHARS 
STA SKCOUNT 

^ LDA KEYBOARD 

CMP #141 
BEQ DONE 


{SAVE RETURN ADDRESS 
{DISCARD 4 BYTES STACK BIAS 


;HOW MANY BYTES TO SKIP AFTER CR 
{GET MAX BUFFER LENGTH 
{GET ADDRESS OF BUFFER 


{NBYTES-0 


{HAS CR BEEN PRESSED? 
;IF YES, QUIT 
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LDA STATUS 

;TEST UART STATUS 

ROR A 


BCC WAIT 

;WAIT FOR A CHARACTER 

LDA DATA 

;GET THE DATA FROM UART 

AND 07F 

;MASK OFF BIT 7 

CMP #32 

;IS IT A CONTROL CHARACTER? 

BCS STORIT 

;N0, STORE IN BUFFER 

CMP .#13 

;IS IT A CR? 

BEQ CR 


CMP 09 

;IS IT A TAB? 

BNE WAIT 

;N0, IGNORE IT 

SPACES LDA #32 

;YES, STORE SPACES UNTIL MULT OF 8 

JSR STOREONE 


BEQ DONE 

{BUFFER FULL 

LDA CHARS 


AND 07 


BNE SPACES 


BEQ WAIT 


CR LDY #0 


STY CHARS 

[RESET 0 CHARS THIS LINE 

LDY SKBYTES 


STY SKCOUNT 

RESET COUNT OF BYTES TO SKIP EACH LINE 

JSR DOIT 

STORE IN BUFFER 

BEQ DONE 

BUFFER FULL? 

BNE WAIT 

WAIT FOR MORE. 

STORIT JSR STOREONE 

PUT CHAR IN BUFFER 

BEQ DONE 

BUFFER FULL 

BNE WAIT 

GO FOR ANOTHER 

STOREONE INC CHARS 

BUMP LOGICAL COUNT CHARS THIS LINE 

LDY SKCOUNT 

ARE WE STILL SKIPPING CHARS THIS LINE 

BEQ DOIT 

NO, STORE IN BUFFER 

DEC SKCOUNT 

YES, DEC COUNTER 

LDA #1 

CLEAR ZERO FLAG (BUFFER NOT FULL) 

RTS 


DOIT LDY #0 


STA (BUFFER),Y 

;PUT CHARACTER IN BUFFER (Y-0) 

INC BUFFER 


BNE SKIP1 


INC BUFFER+1 

BUMP BUFFER POINTER (16 BIT) 

SKIP1 INC NBYTES 


BNE SKIP2 


INC NBYTES+1 


SKIP2 SEC 


LDA MAXBYTES 


SBC #1 


STA MAXBYTES 


STA MAXBYTES+1 


SBC #0 


STA MAXBYTES+1 


ORA MAXBYTES 

SET ZERO FLAG IF BUFFER FULL 

RTS 


DONE PUSH NBYTES 


PUSH RETURN 


RTS 

BACK TO PASCAL 

.END 

. 
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PROGRAM MAIN; 
VAR F: TEXT; 


(* THE FOLLOWING PROCEDURE SETS THE COMMUNICATIONS CARD IN A *) 
(* GIVEN SLOT TO 110 BAUD, 8 BITS, NO PARITY. SEE THE COM *) 
(* CARD MANUAL. THE COM CARD WILL STAY AT THAT BAUD RATE *) 

(* UNTIL SET AGAIN. *) 

PROCEDURE SET110BAUD; 

CONST SLOT-2; 

CODE-82; (* SEE COM CARD MANUAL *) 

TYPE PA-PACKED ARRAY [0..1] OF 0..255; 

TRIX-RECORD CASE BOOLEAN OF 
TRUE: (INT:INTEGER); 

FALSE: (PTR:“PA); 

END; 

VAR CARD: TRIX; 

REM: TEXT; 

X: STRING[99]; 

BEGIN 

CARD.INT:—16242+SLOT*16; 

CARD.PTR~[0]:-3; (* RESET 6850 *) 

CARD.PTR~[0]:-CODE; (* SET 110 BAUD *) 

END; 

BEGIN (* MAIN PROGRAM *) 

REWRITE(F,'REMOUT:' ); 

WR1TELN(F,'THIS IS AT 300 BAUD'); 

SET110BAUD; 

WRITELN(F,'THIS IS AT 110 BAUD'); 

END. 


Thlt application note hai been provided by an Apple Computer user. The International Apple Core does not guarantee the accuracy of this In¬ 
formation In any way and cautions that modifications may void a manufacturer's warranty. The International Apple Core Is a non-profit or¬ 
ganization unaffilliated with Apple Computer, Inc. or any other manufacturer. Apple II, Applesoft, and Apple Computer are trademarks of 
Apple Computer, I nc. 
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THE PRELIMINARY APPLE PASCAL GUIDE TO INTERFACING FOREIGN HARDWARE 

10 DEC 1979 (minor revision) 

This document is intended to direct users of the APPLE II 
who are interfacing to their machine hardware other than Apple 
peripheral cards- Its primary target is the community of 
peripheral card manufacturers who have developed a product for the 
Apple II under BASIC, and wish to develop an end-user Pascal 
interface. It is assumed that the reader is familiar with Apple II 
hardware and is an experienced programmer at the machine level, and 
has programmed in Pascal* 


How Apple Pascal looks at the outside world 


Currently, Apple Pascal is capable of recognizing the 
' presence of an Apple (brand) peripheral card in clots 1 through 7, 

which it does at boot time by scanning the ROM in the slot address 
space* The purpose of this scan is (a) to determine if any card 
exists in the slot, since an open slot yields a random response; 
and (b) to find out what kind of Apple card, if any, is there, 
since the four types of Apple cards (printer, com, disk, and 
serial) have distinct values at byte locations Cn05 and Cn07. A 
foreign (other manufacturer's) card generally fails this test and 
so is disqualified in the Pascal system's list of active slots. Let 
us say, for example, that the Apple user has installed a foreign 
• printer card in slot 1, and attempts to do a WRITELN to the 
printer. Pascal formats the request and sends it to the 
interpreter, which in turn reformats it avid sendf; it to the low- 
level I/O package, which in Apple Pascal Is called the BIOS for 
Basic I/O Subsystem. At the BIOS level, the slot list is checked 
to see what kind of card is in slot I (tue only legal slot for the 
printer). It is at this point that the output request fails, since 
slot 1 Is marked invalid unless an Apple printer, com, or serial 
card is in place. It is important to note in what follows that the 
BIOS driver routine is the only routine it. the system that accesses 
the slot. 

The BIOS 




The term BIOS not only refers to the sec ox I/O drivers 
‘ installed in the file SYSTEM.APPLE in the Paste', system, but also 

to the written specification for these drivers. Th.it pra T.se 
specification of the input and output to Pascal va- created by the 
University of California, San Diego (UCSD) to make it. easy to 
interface UCSD Pascal (parent of Apple Pascal) to any number of 
machines and machine configurations. The tyyx of things tyecified 
in the BIOS includes data and control' parameters, calling sequence, 
unit numbers, and error handling require'.?: ants. 

For example, an Apple-specific version of the 310S for 
the printer contains the following information: 

(1) Transfer to the printer device 1c one chara.ter at a tiDe. 

This application note has been provided by an Apple Computer user. The International Apple Core does not guarantee the accuracy of this in¬ 
formation in any way and cautions that modifications may void a manufacturer's warranty. The International Apple Core is a non-profit or¬ 
ganization unaffilliated with Apple Computer, Inc. or any other manufacturer. Apple II, Applesoft, and Apple Computer are trademarks of 
Apple Computer, Inc. 
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(2) The following special characters must be recognized: 

CR (carriage return) (hex OD) Print the line and return 
the carriage to the.first column* An automatic line feed 
should NOT be done. . 

LF (line feed) (hex OA) Sent only after a CR. Should do a 
simple line feed (no return) if possible, else a CRLF. 

FF (form feed) (hex OC) Advance the paper to top-of-form 
(if possible) and perform a carriage return. 

(3) There are only two calls to the Printer BIOS, a write and an 
initialization call. The initialization call should perform 
carriage return-line feed IF desired, but should not do a 
form-feed. The printer buffer should be flushed. 

Interface Routines Parameters 

Printer write data byte in register A 

return completion code in register X 
(zero if no error) 

Printer inic completion code in register X 

(zero if online, nine if offline) 

The completion code is Identical to the Pascal IORESULT. 

(End of Printer BIOS) 

A complete description of the BIOS specification is beyond the 
scope of this document. The BIOS specification is available at 
cost from the UCSD Pascal distributor (Softech Microsystems of 
San Diego). 

Changing the BIOS 

At Apple, a BIOS has been written according to the UCSD 
specification to interface with all Apple peripherals. It is 
possible to modify the BIOS module within SYSTEM.APPLE to 
accommodate foreign types of peripheral cards, or to alter the 
behavior of an existing device such as the screen. This document 
contains the information necessary to enable one to manipulate 
the BIOS in the Pascal system in order to add non- Apple devices. 

Pascal units for I/O drivers 

For many types of additional hardware, such as an 
external clock, it is better not to alter the BIOS but to construct 
a Pascal unit containing routines to interface with the hardware. 

This unit (which may consist of assembly language routines) 
accesses -the Cxxx addresses directly to initialize, command, and 
retrieve data from the hardware. The Pascal user then simply 
"uses" the unit and has available the routines he needs, without a 
system reconfiguration. (Note: The Cxxx address space may be 
accessed directly from Pascal with a "trix" record: 

DEVICEBYTES “ PACKED ARRAY {0..n] OF CHAR; 

TRIX = RECORD CASE BOOLEAN OF 

FALSE:(ADDR: INTEGER); 

TROE :(CONTROLREC: ~ DEVICEBYTES) 



END; 

VAR CARD: TRIX; 

One then accesses data by the sequence 

CARD.ADDR :•= (address of hardware); 

CARD.CONTROLREC~fO] := CHR(INITMASK) etc. 

The type CHAR is used to ensure that only the desired byte is 
accessed (not the whole word).) 


Patching the BIOS. 

Some applications such as printers really are required to 
be built into the system (i.e. so that WRITELN statements access 
the proper output device). APPLE PASCAL is aware of the following 
I/O devices: CRT screen, keyboard, printer, graphics output, remote 
in, remote out, and block devices (disks). Remote input and remote 
output are general ports for serial or parallel communication. Any 
device that fits into one of these categories can be handled by 
APPLE PASCAL, by inserting a customized 1/0 driver into the BIOS. 

The procedure to do so consists of the following steps: 

1. Write the I/O driver according to the BIOS 
specification. 

2. Patch the I/O driver into SYSTEM.APPLE at a specified 

. location (see below). 

3. Patch the appropriate BIOS vector in SYSTEM.APPLE. 

The "specified locations" in step 2 are in two parts. First, one 

may make use of the space used by the existing driver if there is 
one. These spaces are listed in Table I below. Generally, it is 
preferable to use this space in order to avoid wasting it. 

If the space shown in Table 1 is insufficient, a small 
amount of unused space exists at locations hex DABE - DB7F. This 
is block 5, byte 190 to block 5, byte 383 (decimal), inclusive. 

The BIOS vectors to patch to point to the new routine are 
given by Table II. Note that the method of routine entry is via a 
JSR, with the return address on the stack. 

The actual patching of SYSTEM.APPLE must be done by a user- 
supplied patcher; an easy method is to use BLOCKREAD to read in the 
SYSTEM.APPLE file and the new driver object file, then MOVELEFT to 
copy the new driver in and BLOCKWRITE to write the new interpreter 
file. A supplier should provide to the user, as a package, such a 
program along with his hardware and altered BIOS routine, making it 
easy for an Apple user to add several modifications to his single 
Apple Pascal system. 

Folding of the Language card memory is taken care of auto¬ 
matically by the interpreter. 

•When writing BIOS routines, there is one additional consider¬ 
ation: the keyboard input to Apple Pascal is done by polling, not by 
interrupts; therefore, at convenient locations throughout the BIOS 
there exist calls to the character-available check routine located at 
location D681 in the interpreter. When replacing the BIOS routines 
with customized counterparts, those substitute routines should each 
contain a call to the check routine. 



TABLE I 

BIOS 

DRIVER AREAS 

IN FILE SYSTEM.APPLE 

SBtiaucaasccBBmBSRmccDBQcmacms 

RAM 

amnasiicsccBnB; 

LOCATION 

EaBis&SBSSSRSBCacBttaca 

SYSTEM.APPLE FILE 

AREA 

LO-ADDR HI-ADDR LO 

-BLK,BYTE HI- 

-BLK,BYTE 

CONSOLE INIT 6 READ 

D681 

D787 

3, 129 

3,391 

CONSOLE WRITE 

D7D0 

D7F6 

3,464 

3,502 

SCREEN DRIVER 

D87B 

DABD 

4, 123 

5,189 

PRINTER INIT 

D788 

D790 

3,392 

3,400 

PRINTER WRITE 

D830 

D84D 

4,48 

4,77 

REMOTE INIT 

D79C 

D7A2 

3,412 

3,418 

REMOTE READ 

D84E 

D87A 

4,78 

4,122 

REMOTE WRITE 

D809 

D810 

4,9 

4,16 

COMMON ROUTINES FOR 

D791 

D79B 

3,401 

3,411 

PRINTER & REMOTE 

INIT D7A3 

D7CF 

3,419 

3,463 

SERIAL CARD WRITE 

D7F7 

D808 

3,503 

4,8 

PRINTER CARD WRITE 

DS12 

D81E 

4,17 

4,30 

COM CARD WRITE 

D81F 

D82F 

4,31 

4,47 

DISK ROUTINES 
GRAPHIC WRITE 

D000 

none 

D569 

0,0 

2,361 


o CCDBBa BC3 MS (CUBanSBaQC Od=3CZ&BBStlBt:&==3CBIIIlCBBB E=r:C~OCCR] (K«3I5 CtSSBSCCK*S3 






Notes on Table I. 

RAM addresses are given in hex. Locations in the file 
SYSTEM ..APPLE are given in decimal as a block & byte offset from the 
beginning of the file (starting at zero). 

Console init routines contain routines used by various 
other parts of the system, including console write. It is best not 
to destroy these. Replacement of the Apple keyboard will entail 
replacement of the console character available check routine 
mentioned above, with a hook at the original location. Note that 
the console is highly reconfigurable from the PASCAL level (program 
SETUP); thus, one should be very thoughtful before putting out the 
effort to change the console BIOS. 

Console write calls the screen driver, unless an 
external terminal is attached. 

Both the printer and remote init routines use both of 
the common routines listed. 

Printer write uses printer card write, serial card 
write, and com card write. Remote write uses serial card write, com 
card write, and printer write (sorry about the nonmodularity). 

The console and disk drivers are considered replaceable 
and not extendable. Therefore, the (large) space allotted in Table 
I is considered sufficient for console and disk needs. Users 
wishing to interface with the existing console or disk drivers 
should do so with the cooperation of Apple Computer. 


TABLE III 

BaeBSSSBBSB&SB 

CBBCBBtmSSCiSSBB&SBS 

BIOS VECTORS 

BESC&CBSCBBB&BC&tBB&BBOaBBHI 

VECTOR 

RAM LOCATION 

SYSTEM.APPLE FILE 

CONSOLE READ 

FF7B 

BLK,BYTE 

23,379 

CONSOLE WRITE 

FF84 

23,388 

CONSOLE INIT 

FF8D 

23,397 
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PRINTER WRITE 

FF96 

23,406 

PRINTER INIT 

FF9F 

23,415 

DISK WRITE 

FFA8 

23,424 

DISK READ 

FFB1 

23,433 

DISK INIT 

FFBA 

23,442 

REMOTE READ 

FFC3 

23,451 

REMOTE WRITE 

FFCC 

23,460 

REMOTE INIT 

FFD5 

23,469 

GRAPHICS WRITE 

FFDE 

23,478 


Mnaaaaaii33aBB8BsciiBB3BBBBcaBBBBeBBnBaB«QanBcaKSBC>3x:ccs&ssaaasii 

All vectors are the 16-bit argument of a JSR instruction. The 
address Riven is the lo-byte address; the high byte goes in the 
(given address) + 1. 

Zero Page Usage 

If zero page storage is needed, the following information is useful 
Pascal makes use of variables stored at $50 thru $FF. The disk rou¬ 
tines use variables at $36-$4F. Locations $00-$35 are considered to 
be pure temporaries, i.e. information may be stored in these locations 
but may be destroyed by other routines. Also, locations $200-$399 
form a temporary area used by the disk and screen-scrolling routines, 
and may be used as a temporary buffer space for any other routine. 

It should be noted that the drawback to all this patching is that 
it is dependent on the current system version. It is Apple's 
intention, however, to provide a standard, generalized method for 
system reconfiguration before the next system release occurs. 


BIOS listing 

Attached is a listing of the Apple Pascal BIOS, which provides the 
exact specification of the inputs and outputs of the drivers. 


/PAGE - 0 

Current aeftors available; 10654 
0000 ! 

0000 ! 

0000! «ABSOLUTE 

0000 ! 

2 blocks for procedure code 9907 words left 



m. - 1 bios 


file:, 








COCO! .f-ROC BIOS 

Current aeao r« available: 1012? 


0000 ! 
0000 ! 
0000 ! 
0000 ! 
0000 ! 
0000 ! 
0000 ! 
0000 ! 
0000 ! 
oooo; 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 
oooo: 


APPLE BIOS FOB USCD PASCAL 

COPYRIGHT 1978 APPLE COMPUTER IRC 
URITTEH BY BILL ATKINSON 


ZERO PAGE PIKE TEHPS 


oooo 

ZEROL 

,EQU 0 

0001 

ZERO!! 

■EQU 1 

0002 

•JU8P1 

,EGU 2 

0003 

JUHP2 

.EQU 3 

0004 

8XS1L 

.EQU 4 

0005 

BXS1H 

.EQU 5 

0006 

BXS2L 

.EQU 6 

0007 

BXS2H 

.EQU 7 

0008 

CKPTRL 

.EQU 8 

000? 

CKPTRH 

.EQU ? 

000ft 

CHECKL 

.EQU 10. 

OOOB 

CHECKH 

.EQU 11. 

OOOC 

TT1 

.EQU 12. 

GOOD 

TT2 

.EQU 13. 

OOOE 

TT3 

«EGU 14. 


ZERO PAGE PERKAffiNTS 


OOFO 

f 

FIRST 

.EQU CFO 

{START ZERO PAGE USE 

OOFO 

BASIL 

,EBU FIRST 

{SCREEN 1 POINTER 

OOfl 

BAS1H 

.EQU FIRSTH 

• 

> 

00F2 

BAS2L 

.EQU FIRST42 

{SCREEN 2 POINTER 

OOF3 

BAS2H 

.EQU FIRST+3 

f 

OOFO 

CH 

.ESI FIRST44 

tHORIZ CURSOR 0..7? 

00F5 

CV 

.EQU FIRSTF5 

fVERT CURSOR 0..23 

00F6 

nm 

.EQU FIRST+6 


OOF7 

TEHP2 

.EQU FIRST47 


00F8 

SYSCOH 

.EQU FIRST48 

52 BYTES POINTER OF SYSCGH ARE 


SBFOQ PAGE PERHARESTS 


8F0E 

SCRHODE 

.EQU OBFOE 

Iff OF 

LFFLAG 

.EQU OBFOF 

BFll 

NLEFT 

.EQU OBFli 
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PME - 2 BIOS FILE!. 


OOOO: BF12 

0000: BF13 
<30001 BFH 

0000! BF15 

00001 8F14 

0000! 8F18 

0000! BF19 

0000! BF1A 

OOOO! BFIB 

0000! 

escni 

PANDi. 

RANDH 

CQNFLGS 

BREAK 

RPTR 

UPTR 

RETl 

RETH 

.EQU 0BF12 
.EQU 0BF13 
.EQU 0BF14 
.EQU 0BF15 
.EQU 0BF16 
.EQU 0BF18 
.EQU 0BF19 
.EQU 0BF1A 
.EQU 0BF1B 

*2 BYTES 

il BYTE READ POINTER 
it BYTE WRITE POINTER 

OOOO! 

1 



OOOO! 

• 



OOOO! 

i NISCELANEOUS PROGRAM EQUATES 

OOOO! 

f 



OOOO! 

OOOO! 0200 

i-“ 

BUFFER 

.EQU 0200 

!TEHP HSHIFT BUFFER (OVERLAPS DISK BUF) 

OOOO! 0381 

cow 

.EQU 03B1 

»7B CHAR TYPE-AHEAD BUFFER 

OOOO! 004E 

C8UFLEN 

.EQU 04E 

*78 DECIKAL 

OOOO! D03C 

DURITE 

.EQU 0D03C 


OOOO! 0040 

DREAD 

.EQU 08040 


OOOO! D0O4 

DINIT 

.EQU 08004 


OOOO! 8017 

DRESET 

.EQU 08017 

iPCMERUP DISK INIT 

OOOO! D152 

GOFORIT 

.EQU 08152 

{PASCAL STARTUP POINT 

000-3! OOOC 

NCTRLS 

.EQU 12. 

>1 CTRL CHARS IN TABLE 

OOOO! BFF8 

SLTTYPS 

.EQtJ 0BFF8 


OOOO! 




OOOO! 




OOOO! 

T - 



OOOO! 

T 



OOOO! 

i BISK ROUTINES ARE AT BOOO TO D5DB 

OOOO! 

» PUT STARTUP STUFF AFTER THEM 

OOOO! 

1 



OOOO! 

»- 



OOOO! 


,ORG 0D5DC 


D5DC! 

j- 



05DC! 

i 



nSDC! 

i HARD RESET INITIALIZATION 

D5DC! 

f 



05CC! 

j- 



D5DC! 88 

RESET 

CLD 

»SET HEY NODE 

D5DD! 

f - 



D5DD! 

t 



D50D! 

i CLEAR ALL MEMORY 0 TO BFFF 

8588! 

r 



D50D! 

8588! A? 00 

f- 

START 

LDA 00 


850F! 85 00 


STA ZERQL 


DSEIS 85 01 


STA ZEROH 


05E3! AS 


TAY 


D5E4! AA 


TAX 


D5E5! 91 00 

ZERLP 

STA (ZEROL)»Y fBRITE A BYTE OF 0 

05E7! C8 


INY 

iBUKP POINTER 

D5E8! DOFB 


BNE ZERLP 

(LOOP TILL NEXT PAGE 

D5EA! E4 01 


INC ZEROH 

fBUHP HDS PORTER 

85EC! E8 


INY 
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iDONE CLEARING HEtt? 


PAGE • 3 BIOS FILE:. 








T6Ed: 

EO CO 

D5EF! 

DOF 4 

DSFi: 


D5Ft: 


D5F1! 


D6F t; 


D5F1! 


D5F1I 


D6F1! 


D5F1! 


D5F1! 


B5F1! 


B5F1! 


D5F1! 

AO C7 

D5F3! 

84 09 

D6F5! 

20 mi 

D5F8I 

85 OA 

D5FAI 

84 OB 

D5FC! 

20 mi 

D5FF! 

EO 00 

DSQ1! 

FOtl 

0603! 

C5 OA 

D605I 

DOM 

0607! 

E4 OB 

0609! 

DOtl 

D60B! 

FOtt 

dsod: 


D60D! 


D60D! 


B60D! 


daod: 


0690! 


D60D! 

03 18 38 

DMl! 

3C 38 18 

0615! 


BM5! 


DM5! 


D615! 


DM5! 


B615I 


D615! 


DM5! 


DM5! 


DM5! 


DM5! 


Dil5! 


BM5! 


0615! 


D615! 


DM5! 


DM5! 


DSOBt 

09 

DM5! 

A2 05 

DM7! 

AO 05 

DM9! 

81 03 


CPX IOCO 
m ZERIR 


CHECK SIJH PRIMS ON EACH SLOT 
TO FIND OUT UHO'S OUT THERE 


SUN TWICE TO TELL IF CARD THERE 

IF SUMS DON'T HATCH THEN NO PROM IS THERE 

IF HS BYTE OF SUH=0 THEN NO PROS IS PRESENT 


LDY IOC7 

NXTCRB STY CKPTRH 

•TSR CKPAGE 
STA CHECK! 

STY CHECKH 
JSR CKPAGE 
CPX *0 
BEO NQPROh 
CHP CHECKL 
8NE NOPROH 
CPX CHECKH 
BNE NQPROH 
BEO SUPI0RT5 


{POINT TO SLOT 7 PROM 
i(CKPTRL=0 FROM HEH CLEAR) 
ili BIT SUM IN XiA 

iSAVE FOR HATCH 
iSUH AGAIN 
{WAS HSB ZERO? 
iYES NO PROH ON CARD 
5LSB HATCH? 

}N0, NO PROH QN CARD 

!HSD DIDN'T HATCH 
iALWAYS TAKEN 


i TABU ■)' CNQS AND CN07 BYTES OF EACH CARD 
i 

i- - -- 

CinSBYTS .BYTE 093.018.039.048 

CNO’BYT i .BYTE 03Cr038»01Sf048 


NU« THAT HE KNOW A CARD IS THERE. 
EXAMINE C«05 AND CN07 BYTE TO 
DETERMINE WHICH CARD IT IS 

SET CARDTYPE AS FOLLOWS! 

O-D'SiM NOT REPEATABLE OR HS0=0 
hCHSUM REPEATABLE.CARD NOT RECONGIZED 
2=DIS‘ CARD (BYTE 07=03C> 

3=C0H CARD (BYTE 07=033) 

4=SERTAL (BYTE 07=018) 

SPRINTER (BYTE 07=043) 


SKtPIORTS LDX 55 M TYPES (F CARDS 

NXTYP LDY 55 {CHECK BYTE CN05 OF CARD 

LBA (CKPTRL)iY 
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PACE - 4 BIOS FILE!, 








0618! 

00 0006 


CUP 

CM05BYTS-2. 

XiHATCH TABLE 

061E! 

B0« 


BNE 

TRYNXT 

{NO, TRY NEXT IN LIST 

0620! 

AO 07 


LDY 

17 


0622! 

81 03 


LOA 

(CKPTRL)iY 

{TEST CN07 BYTE 

0624! 

DO 0FD6 


CMP 

CN07BYTS-2»XiHATCH TABLE? 

0627! 

F088 


BEQ 

STOR 

{BOTH MATCHED. CARD RECQNGIZED 

0629! 






D61E* 

00 





062?! 

CA 

TRYNXT 

BEX 


{DUMP TO NEXT IN LIST 

D62A! 

EO 02 


CPX 

12 

{TRY ALL TYPES IN LIST 

B62C! 

DOE? 


BCS 

NXTYP 

• IF NOT IN LIST t FALL THRU lilTH ! 

D62E! 






06278 

00 





D62E! 

A4 0? 

STOP 

LDY 

CKPTRH 


0630! 

8A 


TXA 



0631! 

9? 38BF 


STA 

SLTTYPS-OCO.Y 

0634! 






06078 

00 





06058 

00 





06018 

00 






D634! A4 0? NOPROM 

0636! 88 

mr, co co 

D639! D0B8 
B&3BS 

0638! i- 

0638! i 

0638! { SET SCREEN HQOE ETC 

0638! 5 

0638! i- 


0638! AD 5ICO 


LOA 0C051 

{SET TEXT MODE 

D63E! AD 52C0 


LOA 0C052 

!SET BOTTOM 4 GRAFIX 

0641! AD 54C0 


LOA QC054 

{SELECT PRIMARY PACE 

0644! AD 57C0 


LOA 0C057 

{SELECT HIRES GRAFIX 

0647! AO IOCO 


LDA 0C010 

{CLEAR KEYBOARD STROBE 

064A! 20 8888 


JSR FORM 

{ERASE SCREEN 

0640! 20 8888 


JSR INVERT 

{PUT CURSOR ON SCREEN 

0650! 20 1700 


JSR DRESET 

{00 ONCE ONLY DISK INIT 

0653! AO FB8F 


LDA SLTTYPS+3 

iUHAT CARD IN SLOT 3 

0656! AO 30 


LDY 1030 

{SLOT 3 

0658! 20 8888 


JSR CENIT 

{SET BAUD IF COMMUNICATION OR SERIAL THERE 

0658! EO 00 


CPX 10 

{BAS AN EXTERNAL CONSOLE THERE? 

0650! 0088 


BNE STARTUP 

IHQfUSE APPLE SCREEN 

D65FS A? 04 

0661! 80 OEBF 


LOA 14 

STA SCRHQDE 

{SET BIT 2 FOR EXTERNAL CONSOLE 

06508 00 

0664! 4C 8888 

STARTUP 

JHP JPASCAL 

{FOLD I» INTERP AND START PASCAL 


LOT CKPTRH 

DEY {BUMP TO NEXT LQUER SLOT 

CPY IOCO .SLOT 7 DQUNTO 1 BONE? 

BNE NXTCRD {LOOP TILL 7 SLOTS DONE 


0667! 

0667! i- 

0667! > 

0667! { SU8 TO CHECKSUM ONE PACE 

0667! ■ 

0667 ! {- 


0667! 

D5FDS 6706 
D5F6I 6706 
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0447! A9 00 

CKPASF 

LDA 10 


046?! AA 


TAX 

iCLEAR SUN 

D44A! A8 


TAY 

JO.EAR INDEX 

0460! 18 

CL NX 

CI.C 


D44C! 71 03 


ADC (CKPTRL)iY 

{ADD BYTf 

D44E! 9Qlt 


BCC NOCRY 


0470! ER 


m 

JINC HI BYTE IF CARRY 

0471! 




D44E* 00 




0471! C8 

NOCRY 

INY 

tBUHP INDEX 

0472! D0F7 


BNE CKNX 

«SUH 254 BYTES 

0474! 40 


RTS 

{RETURN SUM IN XiA AND Y=0 


0675! 

D675! .INCLUDE BIOS!DEVICES.TEXT 

0475! 

0675! i- 

D475! i 

0675! » BIOS HANDLERS FOR LOGICAL AND PHYSICAL DEVICES 

0475! ; 

0475 ! 5-- 


0475! 

D475! 

0475! 

0675! 

0675! 

0675! 

0675! 

0675! 

0675! 

0475! 

0675! 

0675! 


0481! 

0481! 

0481! 

0481! 

0481! 

0481! 

0481! 

D481! 

0481! 

0481! 

0681! 

0481! 03 

0482! 48 

0483! 8A 


OLD HOWTOS WAIT ROUTINE 
(LOCATION CHANGED) 


D475 ! 38 

WAIT 

SEC 


0474! 48 

UAIT2 

PHA 


0677! E9 01 

UAIT3 

SBC It 


0479! DOFC 


BNE BAIT3 

J1.0204 USECS 

0470! 48 


PLA 

J(13i2712JAT512iAJA) 

D67C! E9 01 


SBC 11 


D67E! D0F6 


BNE UAIT2 


0480! 60 


RTS 



CONSOLE CHECK FOR CHAR AVAIL 
STATUS AND ALL REG PRESERVED 
IF CHAR AVIAL* PUT I» CONBUF AND INC BPTR 

UARMNG...THIS ROUTINE ALSO CALLED FROM DISK ROUTINES 


CQNCK 


PHP 

PHA 

TXA 
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PAGE - 6 BIOS 


file: bios:deviccs♦text 








0684! 4B 


PHA 


D685! 98 


TYA 


D6361 48 


PHA 


0687! EE 13BF 

RNDINC 

INC RANDL 

tBUHP M BIT RANDOM SEED 

DA8fl! DOW 


BNE RNBOK 


M8C! EE 14BF 


INC RANOH 


D68A4 00 




D68FI AD FBBF 

RNBOK 

LDA SLTTYPS+3 

fllHAT CARD IS IN SLOT 3? 

0692! C9 03 


CNP 13 

iIS IT A COHN CARD? 

D694! FOW 


BED COHCK 

{YES. GOT CHECK IT 

D696! C9 04 


CHP *4 

{IS IT A SERIAL CARD? 

D698! FOW 


BED JDQNCK 

{YES, IT CAN'T BE TESTED 

D&9A! AD OOCO 

TSTKBD 

LDA OCOOO 

{TEST APPLE KEYBOARD 

D69D! 10W 


BPL JDONCK 

;no char avail 

M9F! 80 10C0 


STA 0C010 

{CLEAR KEYBD STROBE 

MA2! 29 7F 


AND 407F 

JHASK OFF TOP BIT 

MA4! C9 OB 


CAP til. 

JCTRL-K? 

mh\ DOW 


BNE NOTK 


D6A8! A? 5B 


LDA 4058 

iYES.REPACE UlTH LEFT SQR BRACKET 

MAW 00 




maa: c? oi 

NOTK 

CHP 41 

iCTRL-A? 

MAC! DOW 


BNE NTTAB 


D6AE! 20 WW 


JSR HTAB 

{YESrTAB NEXT HOLT 40 

D6B1! AD 15BF 


LDA CONFLGS 


MB4! 29 FE 


AND40FE 


D6B4! 8D 15BF 


STA CONFLGS 

{CLEAR AUTO-FQLUW BIT 

MB9! 4C WW 


JHP BONECK 


D&ACt 00 




MBCi C? 1A 

NTTAB 

CHP 424. 

iCTRL-Z? 

D6BE! DOW 


BNE NOTFOL 

{NO. PUT CHAR IN BUFFER 

MCO! AD 15BF 


LDA CONFLGS 


MC3I 0? 01 


ORA 41 


Dies: 80 15BF 


STA CONFLGS 

{SET AUTO-FOLUW BIT 

DAC8! DOW 


BNE D8NECK 

rBR aluays 

mca: 




B6?4* 00 




MCA! AD BECO 

COHCK 

LDA OCOBE 

{CHAR AVAIL? 

MCO! 4A 


LSR A 


D6CE! 90W 


BCC DONECK 

{NO CHAR AVAIL 

MDO! AD BFCO 


LDA OCOBE 

{GET CHAR FROM HART 

MD3I 29 7F 


AND 407F 

rHASK OFF BIT 7 

D605! 




D6BE* 00 




MD5I AO 55 

NOTFOL 

LDY 4055 


MD7I D1 F8 


CHP (SYSCOH)iY 

{STOP CHAR? 

D609! DOW 


BNE NOTSTOP 


MOB! AD 15BF 


LDA CONFLGS 


DADE! 49 80 


ECR 4080 


MEOI 8D 15BF 


STA CONFLGS 

{YES,TOGGLE STOP 8IT< BIT 7) 

DAE3! 




M9D* 00 




M98* 00 




ME3I 4C tm 

JD8NCK 

JHP DONECK 


mea: 




MOW 00 





gio-u 
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D6E4! 89 
D6E7! D1 F8 
D6E9! DOW 
B6EB! AD 158F 
06EE! 2? 3F 
D&FO! 8D 1S8F 
D&F3! 6C 168F 
D6F6! 

D6E94 00 
D6F6! 88 
D6F7! D1 F8 
D6F9! DOW 
B6FB! AD 158F 
D&FE: 49 40 
D700! 8D 15BF 
D703! 4C tttt 
B706! 

D6F?| 09 
D706! AE 1VBF 
D709! 20 tttt 
D70C! EC 18BF 
B70F! DOW 
0711! 20 OW 
0714! 4C Wtt 
D70FI 00 
D717J 8E 19BF 
D71A! 9D B103 
D71D! 

B715I 10D7 
07044 10D7 
D6E44 1DD7 
DACE* 00 
B6C8* 00 
D6BA* 1DD7 
D710! 2C 15BF 
D720! 10W 
0722! 4C 87D4 
D720* 00 
D725! A3 
B726! A8 
B727! 68 
D728! AA 
0729! 68 
D72A! 28 
D72B! 60 
B70A4 2C07 
D72C5 E8 
B72D! EO 4E 
D72F1 DOW 
D731! A2 00 
B72F4 00 
S733i 60 
1734! 

D734I 

D734! 


N8TST0P BET 

CHP (SYSCOH )fY 
BNE KOTBRK 
LDA CONFLGS 
AND «03F 
STA CONFLGS 
JHP 8BREAK 


KOTBRK DET 

CHP (SYSCOH)fY 
BNE KOTFLUS 
LDA CONFLGS 
EUR 1040 
STA CONFLGS 
JHP DONECK 


KOTFLUS LDX UPTR 

JSR BUHP 
CPX RPTR 
BNE BUFOK 
JSR BELL 
JHP DONECK 

BUFOK STX UPTR 

STA CONBUFiX 


{CLEAR FLUSH4STQP BITS 
{BREAK OUT 

{FLUSH? 

{TOGGLE FLUSH BIKBIT 7) 

{BUFFER FULL? 

{BEEP & IGNORE CHAR 

{PUT CHAR IN BUFFER 


DONECK BIT CONFLGS {IS STOP FLAG SET? 

BPL CKEXIT 

JHP RKDINC {LOOP IF IN STOP NODE 


CKEXIT PLA 

TAY 
PLA 
TAX 
PLA 
PIP 

RTS {ELSE RESTORE STAT AND ALL REG AND RETURN 

BUHP I NX {BUHP BUFFER POINTERS KITH WAP AROUND 

CPX KBUFLEN 
BK DNPRTS 
LDX tO 


DHPRTS RTS 
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B734! 

• 

f 


97341 

• IHITIALAIZE CONSOLE! 


B734! 

s 


B734! 



0734! 68 

CIMIT PLA 


0735! 85 F6 

STA TEMPI 

{SAVE RETURN ADDR 

0737! 68 

PLA 


B738! 85 F7 

STA TENP2 


B73A! 68 

PLA 


B73B; 85 F8 

STA SYSCOM 

{SAVE POINTER TO SYSCOH AREA 

0730! 68 

PLA 


B73E! 85 F9 

STA SYSCQMU 


B740! 68 

PLA 


B741! 80 16BF 

STA BREAK 

{SAVE BREAK ADDRESS 

B744! 68 

PLA 


0745! 80 17BF 

STA BREAK!1 


0743! A5 F7 

LDA TEMP2 


B74A! 48 

PHA 

{RESTORE RETURN ADDRESS 

D74B! A5 F6 

LDA TEMPI 


0740! 48 

PHA 


D74F! AD 18BF 

LDA RPTR 

{FLUSH TYPE-AHEAD BUFFER 

0751! 80 19BF 

STA WPTR 


0754! AD 15BF 

LDA CQHFLGS 


0757! 2? 3E 

AND 403E 


0759! 80 15BF 

STA CONFLGS 

{CLEAR STOP.FLUSH.AUTO-FOLLOH BIT 

075C! 20 till 

JSR TAB3 

INQ.KQRIZ SHIFT FULL LEFT 

D75F! A2 09 

CINIT2 LDX *0 

{CLEAR IORESULT 

0761! 60 

RTS 

{AND RETURN 

0762! 



0762! 

. 


0762! 

{ READ FROM CONSOLE! 


0762! 

i KEYBQARD.COM OR SERIAL CARD IN SLOT 3 

0762! 

» 


0762! 

T - —-" 


0762! 20 tt« 

CREAD JSR ADJUST 

{HORIZ SCROLL IF NECESSARY 

0765! AO 30 

LDY 1030 

{SLOT 3 

87671 AD FBBF 

LDA SlTTYPS+3 

JURAT TYPE OF CARD? 

D76A! C9 04 

CMP 14 

{IS IT A SERIAL CARD? 

D76C! BOtt 

BNE CREAD2 

fNO.CONTINUE 

076E! 4C ttit 

JMP RSER 

{YES.READ IT 

met 00 



0771! 20 8106 

CREAD2 JSR CONCK 

.TEST CHAR 

0774! AE 18BF 

LDX RPTR 


0777! EC 19BF 

CPX HPTR 


077A! F0E6 

BED CREAD 

{LOOP TILL SOMETHING IN BUFFER 

077C! 20 2C07 

JSR m 


D77F! 8E 18BF 

STX RPTR 

{BUMP REAB POINTER 

0782! BD B103 

LDA CflNBlF.X 

{GET CHAR FROM BUFFER 

0785! A2 00 

LDX BO 

.CLEAR IORESULT 

0787! 60 

RTS 

{AND RETURN TO PASCAL 

D783i 



0783! 

f 


0788! 

} INITIALIZE PRINTER! 


0783! 

} PRINTER IS ALHAYS IN SLOT l 

0783! 

i IT MAY BE A PRINTER.COM. 

OR SERIAL CARD 
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7 *^ 




7 ®^ 


0788! 

i 



0783! 

! J " 



0783! AO 10 

PINIT 

LDY 8910 

{SLOT 1 

B7BA! AD F98F 


LDA SLTTYPS41 

IBHAT CARD IN SLOT 1? 

0780! C? 05 


CHP 95 

{PRINTER CARD? 

078F! FOI* 


BEQ CLRIOl 

{YES. NO WIT NEEDED 

D6598 9107 




D791! C9 04 

CEBIT 

CHP 04 

{SERIAL CARD? 

0793! FOI* 


BEQ ISER 

{YES. INIT SER CARD 

0795! C9 03 


CMP 03 

{COM CARD? 

0797! F088 


BEQ ICON 

{YES. WIT COM CARD 

0799! A2 09 


LDX 09 

{NONE OF ABOVE. OFF LINE 

D79B! 60 


RTS 


D79C! 

j- 



B79C! 

1 



079C! 

i INITIALIZE REMOTE! 


B79C! 

5 REMOTE IS ALUAYS IN SLOT 2 


079C! 

» IT MAY BE A COM OR SERIAL CARD 

079C! 

J 



D79C! 

079C! AD FABF 

i- 

RINIT 

LDA SLTTYPSt2 

{WHAT CARD IN SLOT 2? 

079F! AO 20 


LDY 0020 


07AI! BOEE 


BKE CEHIT 

;br aluays taken 

D7A3! 

T - 



07A3! 

• 

1 



D7A3! 

i INI! COM CARD. Y=QNQ 


07 A3! 

5 



07 A3! 

y ‘- 



07978 00 




S7A3! A9 03 

ICON 

LDA 03 

{MASTER WIT 

D7A5! 99 8EC0 


STA QCQ8E.Y 

{TO STATUS 

07AS! A9 15 


LDA 021i 


D7AA! 99 8EC0 


STA 0C08E.Y 

{SET BAUD ETC 

B78F* 00 




07AD! A2 00 

CLRIOl 

LDX 00 

{CLEAR IQRESULT 

07AF! 60 


RTS 

{AND RETURN 

D7B0! 

I 



07BO! 

1 



0780! 

; IKIT SERIAL CARD* Y=QNO 


07BO! 

I 



B7B0! 




07938 00 




07BO! 20 8888 

ISER 

JSR SERI 

{ASSORTED GARBAGE 

07B3! 20 00C8 


JSR 0C800 

{SET UP SLOT DEPENDENTS 

07B6! A2 00 

CLR103 

LDX 00 

{CLEAR IQRESULT 

D7B8! 60 


RTS 

{AND RETURN 

B7B9! 




0789! 

« 

f 



0789! 

{ ASSORTED SERIAL CARD SET-UP 

87B9! 

4 

« 

• — 



B7B9! 




Q7B18 B9D7 




07B9! 8C F806 

SERI 

STY06F8 

{STORE NO 

07BC! 93 


TYA 


D7BD! 4A 


LSR A 
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D7BE1 4A 

B7BF! 4A 

D7C01 4 A 

B7CI! 0? CO 

07C31 AA 

B7C4! A? 00 

D7C6! 85 F6 

D7C8! 86 F7 

B7CA! AD FFCF 

B7CD! Bt F6 

D7CF! 60 

D7D0! 

file: bios:devices.text 

LSR A 

LSR A 

LSR A 

ORA I9C0 

TAX 

LOA tO 

STA TEMPI 

STX TEHP2 

LDA OCFFF 

IDA (TEfiPU.Y 

RTS 

MAKE OCN IN X 

ISET UP INDIRECT ADDRESS 
{TURN OFF ALL C8 RONS 
{SELECT CO BANK 



D7D0! 

t 


D7D0! 

} WRITE TO CONSOLE 


D7D0! 

i VIDEO SCREENtCQH OR SER CAPO IN SLOT 3 

D7D0! 

f 


D7D0! 

t 


v- 


D7D9I 20 81D6 

CUPITE JSR CQNCK 

{CONSOLE CHAR AVAIL? 

D7D3! 2C I5Br 

BIT CQNFLGS 

{IS FLUSH FLAG SET? 

D7DS! 7C« 

BVS CLRIO 

{YES(DISCARD CHAR 4 RETURN 

D7D3! AA 

TAX 

{SAVE CHAR IN X 

D7D?! AO 30 

LOT 1330 

{SLOT 3f 01C 

B7DB! AD FBBF 

LDA SLTTYPS+3 

iUHAT KINO OF CARD’ 

D7DE1 C? 03 

CMP t3 

ICON CARD’ 

D7E0! FOI* 

beq u:gm 

{YESr USITE TO CO CARD SLOT 3 

D7E21 C? 04 

CM? t4 

{SERIAL CARD’ 

B7E41 FOII 

BEQ USER 

rYES.URITE TO SER CARD SLOT 3 

07E61 8A 

TXA 

{ELSE RESTORE CHaR AMO SEND TO SCREEN 

D7E71 85 F6 

VIDQ'Jf STA TEHP1 

{SAVE CHAR FG? LATER 

D7E7! 20 till 

JSR INVERT 

{REMOVE CURSOR 

B7ECI A4 F4 

LOY CH 


D7EE1 20 «« 

JSR VQ’JT2 

{DO THE BJSINESS 

D7FI! 20 till 

JSR INVERT 

{RESTORE THE CURSOR 

B7D6I 03 

D7F4! A2 00 

CLRIO LDX t-2 

iCLR IORESliJ 

87F6! 60 

RTS 

{RETUR'i’l FfiiiN VICLT 

07F71 

• 




B7F7! 

• 

1 


D7F71 

I WRITE TO SERIAL CARO* Y=QN3 

( CHAR IN X 

D7F7! 

4 

r 


D7F71 



j-• 


B7E4I 00 

D7F7! 20 B1D6 

USER JSR COCK 

{CONSOLE CHAR? 

B7FA! 8A 

TXA 


B7FB! 48 

PHA 

{SAVE CHAR ON STACK 

B7FC1 20 B7D7 

JSR SERI 

iASSORTED GARBAGE 

B7FF1 63 

PLA 


D890! ?D BS05 

STA 0S83tX 

{SET U? DATA BJTE 

8303! 20 AAC9 

JSR 0C7AA 

{SEND IT (SHSLI) 

0906! A2 00 

LDX tO 


0803! 60 

RTS 


0307! 

* 




0307! 

* 

r 


0807! 

} WRITE TO REMOTE: CHAR IN A 


0807! 

5 



G10-15 

















PAGE - 11 BIOS 
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FILE! BIOS!DEVICES.TEXT 


j- 


D80?: AA 

RURITE TAX 

i jAVc. CHAR 

089A! AD FABf 

LDA SUTYPSF2 

JURAT CARD IN SLOT 2? 

OBOD! AO 20 

LDY 4020 


D80F! DOtl 

8811! 

BNE CEIW2 

m ALU AYS TAKEN 

f- 


88111 

• 


8311! 

i BftlTE TO PRINTER CARD SLOT 1 

i CHAR IN X 

88111 

88111 

D8111 20 8185 

• 

f 


i _ -- 

UPRfl JSR QUICK 

iCONSOLE CHAR AVAIL? 

88141 AD C1C1 

LDA 0C1C1 

iTEST PRINTER READY 

8817! 30F8 

BSI UP8N 

ILQO? TILL READY 

88191 8E 90C0 

STX 0C090 

ISEND CHAR 

881C! A2 00 

CLP102 LUX 40 


D81C! 40 

RTS 


B81F! 

BB1FS 



. .— 


B81F! 

• 


D81F1 

1 UP.ITE TO COM CARD. Y-GM3 

CHAR IN X 

B81F1 

831F1 

4 

f 


1-- 


D7E0* 00 

881F! 20 8184 

UCOH JSR CCMCK 

.CONSOLE CHAR? 

8822! B9 8EC0 

LDA 0C03E.Y 

ITEST IWvT STATUS (ASIA ST 

8825! 29 02 

AND 42 

IREAD:? 

8827! F0F6 

BEQ VCON 

INO. IMT TILL READY 

88291 8A 

TXA 


B82A1 99 8FC0 

STA 0C08F.Y 

ISEND CHAR 

B82D1 A2 00 

LDX 40 


B82F1 40 

88301 

RTS 


f - 


88301 

• 

f 


88301 

i URITE TO PRINTER! CHAR IN A 

88301 

8830! 

i 

I 


j- 

{SAVE CHAR IN X 

08301 AA 

PilRITE TAX 

88311 AD OFBF 

LDA LFFIAG 

ITEST LINE-FEED FLAG 

88341 101* 

BPL LFPASS 

.PASS IF BIT7=0 

88341 EO OA 

CPX 410. 

IIS IT A LINE-FEED? 

88381 FOBA 

BEQ CLRIO 

IYES. IGNORE 

B83A1 

88341 00 

D83A1 AO 10 

LFPASS LDY 4010 

ISLOT I 

8B3C1 AD F9BF 

LDA SLTTYP3T1 

IUHAT KIND 0" CARD? 

B83FS C9 05 

CEHU CAP 45 

IPRWTtR CARD? 

88411 FOCE 

BEQ UPRd 

IYES URITE TO PRINTER CARD 

880ft 00 

88431 C9 04 

CENN2 CH? 44 

.SERIAL CARO 7 

88451 FOBQ 

BEQ USER 

IYES URITE TG SER CARD 

18471 C9 03 

CH? 43 

.can CARD? 

1849! F0D4 

BEQUCOH 

IYES URITE TO CM CARD 

8848! 

8848! 

884B! A2 09 

OFFLINE LDX 4? 
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BB4D: 40 

B84E! 

D84E' 

RfS 


0 


D84E! 

f 


DB4ES 

084E! 

084E! 

} READ FROH RErtOTE 

i 


RREAD LOA SLTTYPS42 

iOHAl CARD IN SLOT 2? 

GB4E! AO FABF 

BBSl! AO 20 

LOT 4020 


1853! C9 04 

CENR CM? 14 

}SERIAL CARO? 

0855! FOtt 

BEQ RSER 

.GET FROM SERIAL CARD 

1857! C9 03 

CAP 43 

.CON CARO’ 

1859! FOtt 

BEQ RCOM 

iGEr FROM CON CARO 

0858! DOEE 

8850! 

BHE OFFLINE 

.CARD NOT RECCG 



8850! 

! 


8850! 

BB50! 

1850! 

} read rm cm card» wo 

i 


RCOH JSR CflNCK 

5 CHECK FCS CONSOLE CHAR 

1859100 

1850! 20 8104 

I860! B9 8EC0 

LOA OCO 8 E 1 Y 

iTESI UARI STATUS 

6863! 4A 

LSR A 

.TEST BIT 0 

6864! 90F7 

BCC RCOH 

.BAIT m CHAS 

8844! B9 8FC0 

LOA 0C03F.Y 

»GET CHAR 

8849! A2 00 

LOX 40 


0848! 40 

884C! 

RTS 

• 


f " ' ‘ 


B84C! 

• 

1 


G84C! 

i READ FROM SERIAL CARD. Y=ONQ 

B84C! 

D84C! 

0853 00 

» 

I 


RSER JSR CQNCK 

{CONSOLE CHAR AVAIL? 

D74F* 4C08 

084C! 20 8104 

D84F! 20 B9D7 

JSR SERI 

iASsasrco garbage 

0872! 20 4DC8 

JSR 0C84D 

iGEr A BYTE (SHIFTIh) 

0875! BD B805 

LOA 0583.X 

iGEI BY IE 0S831SL0T 

0878! A2 00 

LDX 40 


U7A! 40 

087B! 

087B! 

0878! 

RTS 


0878! 

867B! 

1870! 

.INCLUDE BIOSiSCREEN.TEXT 


; 


087B! 

. APPLE II SCREEN DRIVERS ROUTINES FOR 80 COL DISPLAY 

B870! 

8870! 

* 

f 




087B! 



DB7B! 




B87B! }- 

D87B! } 

B87B! I LIST OF CONTROL CHARS 


GlO-l? 
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(APPLE SCREEN EttJLATES A DATAHEDIA TERfllNAL) 


CTRLCH «BYIE 27. iESCAPE 
.BYTE 30. iGOTQXY 

.BYTE 13. SCR 

.BYTE 10. iLF 

.BYTE 7. iBELL 

.BYTE 31. tREVLF 

.BYTE 23. iNBFS 

.BYTE 8. iNDBS 

.BYTE 12. JFQRrt 

.BYTE 25. »KEW£ 

.BYTE 11. rCLEQS 

.BYTE 29. iCLEOL 


JUftP TABLE FOR CONTROL CHARS 


CTRLJHP .BQRD ESCAPE 
.B8RD GOTOXY 
.m CR 

.yORO IE 

.BQRD BEil 
.SORB REVLf 
.BORO ADVANCE 
.BQRD NOBS 
.BQRD FORM 
.BQRD HQ'S 
.BQRD CLEGS 
.BQRD CLECL 


START OF SCREEN HANDLING ROUTINES 


G7EF3 9FD8 


B89F! AD 128F 

VGUT2 

LBA ESCNT 

5STILL IN ESC SEQ? 

E8A2! F03$ 


BEQ fiOTSEQ 

iHQiSKIP 

S3A4! C9 02 


CHP 02 

TARE BE IN XY NODE? 

D&A&i 9030 


BCC ScQRET 

5H0i THERE ARE NO OTHER ESC SEQUENCES 

SBA8! F033 


BEG SETT 

OIF ESCNT=2 THEN SET CV 

BAA! A5 FA 


UA TEMPI 

•ELSE GET BACK CHAR 

E3AC! 36 


SEC 


BAD! E? 20 


SBC 032. 

JSUB 32 

8BAF! 3030 


BRIIHPSX 

jBRANCH IF NEC 

I8B1! C9 50 


cn? «so. 


B8B3! 9033 

E8AFSC0 


bcc m 


m\ A? 00 
§883* 00 

BGPSX 

LBA §0 

50UT OF RANGE* HAKE =0 

03B7! 85 F7 

XGK 

STA TEKP2 

sSAVE TILL GET Y TOO 

B8B9! 4C3SS3 


J!8» SESRET 

*DEC ESCNT AND RETURN 


3BA83 00 


G10=18 
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B8BC1 A5 F6 

serr 

LDA TErtPl 

iGF.r BACK CHAR 

BBBE! 38 


SEC 


D3Bf; E9 20 


SBC 432, 


DSCli 30SI 


BMl fliPSY 


58C3! C9 18 


CMP 424. 


53C51 908 


8CC YQK 


Dacia 00 

B8C7! 89 00 

OQPSY 

LDA 40 


B8C5» 00 

D8C9I 85 F5 

YOX 

ST8 CO 

{SET NEU CO 

e8cb: 20 nn 


.JSR 8A5CAL 

ICALC NEU POINTERS 

B8CE1 85 F7 


LDA TEHP2 

»SEf X COORB FROM LAST 

3800: 85 F4 


ST8 CH 

{TIME THRU AMO SET HOSR 

10021 89 00 


LDA 40 


B804: 80 12BF 


STA ESCRT 


B807! 60 

3808$ D8D8 


RTS 

i AMO REIURN 

D8A4S 00 

B808i CE 12BF 

SEQSET 

DEC ESCRT 


380BI 60 


RTS 


08A26 00 
ffiOCl 85 F6 

NQTSFQ 

LDA TErtPl 

iGEf char back 

D80E! 29 7F 


AND 407F 

{MASK OFF 111 Bit 

D8EQ: C9 20 


CMP 432, 

iCOMIRO CHAR? 

B8E2! 908 


BCC CMIRL 

IYESi PROCESS IT 

E8E4! C9 60 


CM? 496, 

rlOHER CASE? 

B8E6! 908 


BCC UPPER 


B8E8! E9 20 

D8E6S OO 


SBC 432, 

{COWERI IC IP PER 

D8EA! 29 3F 

UPPER 

AMD 403F 

{TURN o r F flash 

B8EC! 09 80 


ORA 4030 

{HAKE NOT INVERTED 

bsee: 4C mt 


JIIP ST0AD7 

rPRIMT AMU RETURN 

B8E26 00 

D8FI! 82 08 

CNIRl 

LDX 4CTRLS-1 

iPOlMI TO END G- CTRL TAB.E 

E8F3I DD 7BD3 

CNCfKL 

CMP CTRLCH*X 

{COMPARE CHAR AGAINST TABLE 

B8F61 F08 


BEO DQCTRL 

{process if hatch 

D8F81 CA 


DEX 


B8F?: 10F8 


BPl CKCIRl 

{CHECK ALL CHAR IN TABlE 

D8FB! 60 


RIS 

{IGNORE IF MOT MATCHED 

D8F65 00 

B8FC1 8A 

QQGTRL 

TXA 


D8FD! 08 


ASL A 

{DOUBLE INDEX FOR U3RD OFFSET 

D8FE! 8A 


TAX 


B8FF! BO 8303 


LDA CTRLJrtPHrX {GET Rl BYTE Jn? ADOS 

B902! 85 03 


STA JUMP2 


0904! BO 8708 


LDA CTRLJMP.X 

iANO LO BYTE 

0907! 85 02 

D909! 6C 0200 

D90C1 


STA JUMP1 

JM? 8JUHP1 

ina table jump 

f- 



B90C1 

I 



B90C! 

! ROUTINES TO PROCESS CCNIROl CHARS 

B90C! 

B90C1 

I 



j- 



58876 0C09 
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B9QC! ft? 01 

ESCAPE 

B90E! 80 12RF 

mi: 60 

D889S 12D? 

D?t2! ft? 03 

GGIOXT 

D?U: 80 128F 
m7i 40 

58885 180? 

D?181 ftO 00 

CR 

B?1A! 84 F4 

6?IC! 60 

B88M 1DD? 

D?tOl A5 F5 

LF 

WIFI C? 17 

B?21! FOtt 

B?23i E6 F5 

LF2 

D?25! 4C mt 

B?2M 00 

D?28! A5 F4 

SCROLL 

B?2A1 48 

B?2Bi A2 00 

B?2D! 86 F5 

b? 2 f: 20 mi 

D?32l 20 mt 

cum 

D?35! E8 

B?36i 86 F5 

D?38! 20 mt 

B?3B! ftO 27 

D?30! B1 F0 

C0?Y2 

D?lFi ?l 04 

B?4i: B1 F2 

B?43! ?t 06 

B?45! 88 

W4A! 10F5 

0?48: E0 17 

SKPCOUT 

B?4A: B0E6 

D?4C! A? 00 

D?4E! 85 F4 

o? 5 o: 20 mt 

0?53: 68 

B?54! 85 F4 

B?56! 60 

D88FB 570? 

07121 57D? 

S?57! A? 40 

SELL 

fi?5?: 20 7506 

B?5C! A0 CO 
d?5e: ft? oc 

B&L2 

D?60! 20 7504 

D?63! AD 30C0 

B?66! 88 

B?47! 00F5 

S?4?i 60 

jfif.r 

S891I 6AD? 

B?6ft! A5 fs 

revlf 


LDA 

41 


STA 

ESCNf 

fSET ESCAPE FLAG 

RIS 


tAND RETURN 

LDA 

13 


STA 

ESCNf 

• SET ESC C0UNT=3 FOR XT 

Rrs 



LOT 

*0 


STY 

CH 

{RESET HORIZ CURSOR 

RIS 



LDA 

CO 

»GET VERI CURSOR 

CHP 

•23. 

i(M BOTTOM LIRE? 

BEO 

SCROLL 

iYESr SCROLL UP 

IRC 

CV 

fNQt BUHP VERf CURSOR 

JHP 

BASCAL 

JCAIC POINTERS AND RETURN 

LDA 

CH 


PHA 


{SAVE HORIZ CURSOR 

LDX 

to 


SIX 

CV 

{WIT UNf COUNI 

JSR 

BASCAL 


JSR 

OPT 

»COPT POINTERS 

INX 



SIX 

CV 

iBUNP LINE COUNI 

JSR 

BASCAL 


LDX 

t3?» 


LDA 

(BASIL )»Y 


STA 

(BXSIDiT 

!CO?T FT IE OF PCI 

LDA 

(BAS2L)fT 


STA 

(BXS2U.T 

iCO?T BTIF. 8- PG2 

DEI 



B?L 

C0?Y2 

• LOP 40 CHARACTERS 

CPX 

423. 

ilIMF 23 COPIED? 

BNE 

(MPT I 

fNO. LOO? IW1LF PAGE 

LDA 

40 


STA 

CH 

{CLEAR HORIZ CURSOR 

JSR 

CLEW. 

•CLEAR BOTTOM LWt 

PLA 



STA 

CH 

{RESTORE. HORIZ CURSOR 

RTS 


{AND RETURN 


LDA 4040 

{DELAY .01 SEC 

JSR BAIT 


IDT 40C0 


LDA tOOC 

{TOGGLE SPEAKER AT 

JSR WIT 

i 1KHZ FOR .1 SEC 

LDA 0C030 

{TOGGLE SPEAKER 

DEY 


BNE BEU.2 


RTS 

{AND RETURN 

LDA CV 

{IS CURSOR ALREADY 
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FILE: BIOSISCRFfH.TFXF 




r*\ 




696C! FOF8 


B£Q JREI 

iYFSf RETURN 

D96E1 C6 F5 


PEC CV 

tNO* WIN? 0 

6970! 4C Un 


JN? BASCAt 

iCALC POWIfftS AND RETURN 

08953 7309 




6973! CO 00 

MDBS 

C?Y SO 

iYFSi AT LEFT 0? RASE 1 

0975! F0s$ 


BEQ JINV 

iYFSf RETURN 

6977! C6 F4 


DEC CH 

tNOf WWP IT LEFT 

69753 <K> 




0979! 60 

JINV 

RIS 

iAND RETURN 

B97A! 




08973 7AD9 




B64B3 7009 




B97A! 20 Un 

FORM 

JSR »M 


D97B! 4C %m 


JHP CUDS 


B98Q! 




B97B3 8009 




68993 8O09 




6980! AO 00 

WM 

LDY 30 

iRESET CV.CH 

S932! 84 F5 


STY CO 


6984! 84 F4 


STY CH 


0986! 




B986 ! 4C 333* 

BSRFT 

Jfi? RASCAL 

iCALC POINTERS AND RETURN 

0989! 




097E5 8969 




£8933 8909 




E989! A5 F4 

GUOS 

IDA CH 

iSAVF H3RIZ CURSOR 

0980! 48 


PHA 


098C! (f> F5 


LDA CV 


S98E! 43 


PHA 

{SAVE VFRT CURSOR TOO 

698F! 20 nn 

CtKXL 

JSR CLEOL 

5 CLEAR A LWf 

6992! 20 18D? 


JSR CR 

tPOINT TO LFFT 

8995! 20 2309 


JSR I.F2 

iOF NEXT LINE DOWN 

B998! AS F5 


LDA CV 


D99A! C? 18 


CAP 024. 


099C! 90FJ 


BCC CUiXi 

ilOOP Till CV5-24 

099E! 68 


PIA 


B99F! 85 F5 


STA CV 

iRESTORE. VEftr CURSOR 

B9At! 68 


PLA 


69A2! 85 F4 


STA CH 

iRESTORE HORIZ CURSOR 

09A4! 4C 3333 


JHP PASCAL 

iCALC M PO/NTfR AND RETURN 

B9A7! 




69903 A709 




D9513 A7C? 




689D3 A7P? 




K9A7! A6 F4 

CU.01 

LDX CH 

iSAVE CH 

B9A9! A? AO 

G.Q0P 

U)A 4160, 

iC'EI A SPACE 

09AB! 20 $i$S 


JSR STQAPV 

{Fill IN ON THE SCREEN 

B9AE1 90F9 


BCC CLQOP 

il.00? Till END OF LINE 

69B0! 86 F4 


SIX CH 

iRESTORE CH 

B9B2! 60 


RTS 


6983! 




jioai* 

• 




t ’ '" * 



6983! 




6983! 

f 



6983! 

i STORE. CHAR IN A ON SCREEN THEN 
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/***S 






D9W1 


B9B,x; 


D9B31 


D9R3! 


09ACI 

WO? 

88EFI 

BJD9 

I9D3! 

?o mi 

D9B6! 


B9R6! 


B9B6! 


D9B6! 


B9B6! 


B9BA! 


D9BA! 


D9BA! 


D9B4! 


D9R6I 


om; 


mit 

B6B9 

B9B6! 

A4 F4 

D9B8! 

C0 4F 

D9BA! 

BOlt 

S9BC! 

Cfi 

B9BD! 

84 F4 

B9BF! 


D9BAI 

00 

D?BF! 

60 

D9C0! 


D9C0! 


D9C01 


D9C0! 


D9C0! 


D9C0! 


D9C0! 


WCO! 


WCO! 


D9C0! 


wco: 



FAU WROUGHT 10 ADVANCE 
X R.-f. IWCHANGTD. t-'CH Off EXIT 


STOADV JSR STOftF IPUT CHAR ON SCRfffi 


ADVANCE CUSSOR TO RlGHf. 

IF CH ALREADY = 79 THEN MU* [ ADVANCE* 
AND RETURN HITY Y=7? AND CARRY SF.f 
El.SE RETURN WITH Y=CH. CARRl CLEAR 
X A A UNCHANGED 


ADVANCE LDY CH 
CPY 179. 
BOS ADVRTS 
INY 

STY CH 


ADVRTS RTS 


PUT CHAR ON SCREEN. EITHER VJSABif 
OR INVISABLF PORTION. 

SPECIAL CASE \ IF A=0 THEN JUST INVERT 
AT THAI IOC ATJON INSTFAD OF STORING, 


D?B4* C009 


WCO! 48 

STORf PHA iSAVE CHAR FOR LATFR 

WC1! A5 F4 

LDA CH 

D9C3! 38 

SEC 

D9C4! FB UBF 

SBC (LEFT INHERE IS THE HQRT7 CURSOR? 

D9C7S 30U 

Brtl OFFlEf I IT'S OFF TO THE LEFT OF VISABlE 

WC?i C? 28 

CH? 143- 

WCI! BOll 

DCS OFFRT .IT'S OFF TO THE RIGHT OF VJSAfcl 

B9C0! A8 

TAt IFlSE IT'S BN VISABLF SCREFN 

WCEi 68 

PLA IGET CHAR BACK 

D9CF! BOtt 

BNf STORft .STORE IT UYiFSS 0 

09D1! Bl FO 

LDA (BASIL).Y IlF 0 READ SCREEN 

WD3i 4? 80 

EOR 1033 I INVERT CHARACTER 

D9D5! 


D9CFIOO 


D9D5! n FO 

STORE! STA (BASILM I STORF VI SABLE CHAR 

D9B7i 60 

RTS 
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D9H8! 

wm oo 

D9B8! 18 OFFlff 

69D9! 69 ?8 
D9D8! 4C III* 

D9BEI 
09 * 28 * 00 
D9DE! 38 
B9DF! E9 28 
D9EI! 

09DC* Et09 
D9E1! AS 
B9E21 68 
D9E3: BO** 

D9E5! B1 F2 
D9E7! 49 80 
D9E9! 

B9E3SOO 
B9E9! 91 F2 
B9EB; 60 
B9EC! 

D9EC! 

B9EC! 

69EC! 

D9EC! 

B9EC! 

B9F.C! 

D7F2* ECD9 
D7EA* EC09 
99EC! A9 00 
09F£! 4C C0B9 
D9F1! 

B9F1! 

89F1! 

D9F1! 

D9F1I 
B9F1I 
D9F1! 

B9F1J 
D9F1! 

B9F1! 

D9A5* F1D9 
0987* F1D9 
0971* F109 
B939* F109 
0930* F109 
0926* F309 
OBCC* F109 
09F11 A5 F5 
D9FJ! 4A 
D9F4! 29 03 
D9F61 09 04 
09F8! 85 Fi 
D9FA! A5 F5 
D9FC1 29 18 


etc 

ADC 140. 
JrtP STCR? 


SEC 

SBC 140. 


TAY 

HA »GET BACK CHAR 
BNf STORE? .STORE IF NOT 0 
LBA (BAS21 ).Y »IF 7FRQ. READ SCRFFH 
FOR *080 >AND INSERT IT 


STA (BAS2L)rTf .STORF HIDDEN CHAR 
RTS 


LBA CV 

LSRA iSET CARRY FOR 6 LINES Dwfl 

AND *3 

ORA *4 

STA BASIH 

LBA CO 

AND *018 


OFFRF 


STOR? 


STORF? 


INVERT CHAR AT CURSOR POSITION 


INVERT LBA *0 .FLAG TO TfLl STORE TO INVFRf 
JHP STORE. f INVERT AT CH ANB RETURN 


CLACUtATF BASE ADDRESS POINTERS 
FOR PAGE 1 ANB PAGE 2 
ENTER WTH CV I* RANGE 0..23 

exit with basil. h» anb BAsa .H sfi up 

X AND Y REGS UNCHftGED 


BASCAl 
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FILE! BlflSlSCREFN.TfXf 

I9F£1 901* 

BCCBSCL? 

MOO! 69 7F 

ADC I07F 

BA02! 


D9FE* 00 


DAO?! 85 FO 

BSCl? STA BASIL 

M04! OA 

ASL A 

BA05! OA 

ASL A 

DA06! 05F0 

ORA BASIL 

M08! 85 FO 

STA BASIL 

BAOA! 85 F2 

STA BAS2L 

DAOC! A5 FI 

LDA BAS1H 

DAOE! 18 

CLC 

MOF! 69 04 

ADC 44 

MU! 85 F3 

STA BASJH {POINTFR TO PAGE 2 

MU! 60 

RTS 

MU! 

BAU! 

* 

MU! 

* 

f 

MU! 

i COPY BASILiH INTO fUSlLrh 

MU! 

I AND BAS2L.H INTO BXS2L.H 

MU! 

} TO HAKE AN EXTRA PAIR OF POIRIERS 

MU! 

i FOR SCROLLING. FIC. 

MU! 

&AU! 

• 

i 

• 

Pi It 1 

MU! 


D933* 14BA 


MU! A5 FI 

COPY LDA BASIN {COPY POINTERS 

MU! 85 05 

STA BXS1H 

M18! A5 F3 

LDA BAS2H 

MIA! 85 07 

STA BXS2H 

MIC! A5 F0 

LDA BASIL 

MIEi 85 04 

STA BXS1L 

M20! 85 06 

STA BXS2L .NOTE BAS21 ALUAYS SANE AS BASIL 

M22! 


M2?! 60 

RTS7 RTS 

DA23! 


M21! 

• 

M2J! 

« 

. 

DA23! 

{ HORIZONTAL SCRFEN SHIFT ROUTINE 

DA23! 

4 

. 

QA23! 

4 

M23! 

| , , _ --- 

M23! AA 

HSHIFf TAX JSAVF H0RI7 KlTA 

DA24! F0FC 

BE0RTS7 .RETURN IF DElTA=0 

M24! A5 F5 

IDA CV 

DA28! 48 

PHA {SAVE CV ON STACK 

M29! 8A 

TXA 

M2A! 48 

PHA {SAVE OFFSET ON STACK 

M28! 38 

SEC 

M2C! E9 28 

SBC #40. 

M2E! 1018 

BPL ONDEI.T 

M10! 18 

CLC 

Mil! 69 50 

ADC *80. {CALC (BEITAUO) HOD 80 
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FILFS RIGS.SCRFFN.TFXT 


BA3J! 48 

OKBElT 

PHA 

iSAVf OH STACK 

BA34! A? 17 


LDA 423. 


BA34! 85 F5 


STACV 

UNIT ROB COMFR 

BA38! 20 F10? 

L0P1 

JSR BASCAL 

{CALC POINTERS 

BA39! AO 77 


LDT 439. 


DA39I B) FO 

U3P2 

LDA (BASIL M 

{GET (/ISAM CHAR 

DA-1FJ 99 0002 


STA BUFFER.! 

•COPY INTO LFFT HALF OF BUFFER 

BA42! B1 F2 


LDA (BAS2L )»Y 

{GET HIDDEN CHAR 

BA44! 99 2802 


STA BUFFERMO 

,»Y {COPY INTO RIGHT HALF OF BUFFER 

BA47! 88 


BET 


BA48! 10F3 


BPL MP2 

}REPEAT FOR HHOLF ROB 

DA4A! 68 


PLA 


BA4I! 48 


PHA 


BA4C! AA 


TAX 

{GET (DEITAMO) NOD 83 IN X 

DA4B! AO 27 


LDY 439. 


BA4F! CA 

VLSLP 

BEX 


BA-50! 10« 


BPL IWI 


9A52! A2 4F 

BA-54! 

BA5M00 


LDX 479. 

{BUFFER INDEX ORaP-ARMD 

BA-54! BD 0002 

mi 

LDA B1FFER.X 

{GET FRQH BUFFER 

BA-57! 81 FO 


STA (BASIL)iX 

{URITF VISABLF CHAR 

BA-59! 88 

- 

BEY 


BA-54! 10F3 


BPL VISLP 

{LOOP 40 DISABLE CHARS 

BASCi AO 77 


LDY 439, 


DA-5E! CA 

HTONLP 

BEX 


BA5F! 10tt 


BPL N0BRP2 


BA41! A2 4F 
ms\ 


LDX 479. 

{BUFFER INDEX BRAP-ARiM 

BASF} 00 

DA43! BD 0002 

WMP2 

LDA BUFFERtX 


DA46! 91 F2 


STA (BAS2L)rY 

{WRITE A HIDDEN CHAR 

DA48! 83 


BEY 


BA49! 10F3 


BPL HIBNLP 

{LOOP 40 HIDDEN CHARS 

DAAi! C6 F5 


DEC CV 


BAAS! IOC? 


BPL L0P1 

{REPEAT All ROBS IN PAGE 

BAAF! 68 


PLA 

{DISCARD DELF.TAMO HDD 80 

DA70! 68 


PLA 

{GET PLAIN BElTA 

DA71! 18 


CLC 


DA72S 6D 11BF 


ABC RLFFT 


BA75! 80 UBF 


STA HlEFT 

{UPDATE COUNT OF CMS TO LEFT 

DA781 68 


PLA 


BA79! 85 F5 


STA CV 

{RESTORE CO 

BA7SS 4C F109 

BA7E! 

BA7E1 


JHP BASCAL 

{AND POINTERS AND RETURN 

f 



BA7E! 

* 

I 



BA7E! 

5 HORTZ TAB TO NFXT ft'JlT OF 40 

BA7E! 

BA7E! 

BA7E! 

f 



HTAB 

LDA HLEFT 


BA7E! AD U8F 

BA81! C9 14 


CUP 420, 


DA83! BOO 


DCS TAB3 


BASS! A9 28 

TAB2 

LDA 440, 



G10-25 







PAGE - 21 BIOS FILE: BJQSJSCREEN.TEXl 








BA87I [too BNE DOIT iALWAYS TAKEN 

BA83100 

m\ A9 00 TAW LDA10 

IA87A00 

BA88! 38 DOIT SEC 

BA8CI ED USE SBC ifiifT iCALC DElTA 

BA8E' 4C ?30A JAP HSHTEf {SHIFT AND RETURN 

BA92S 

BA92! i- 

DA921 { 

DA92! i ADJUST ROUTINE DOES HORIZ 

DA92! { SCROLL TO KEEP CURSOR WAKE 

DA92! { 

BA92I }- 

DA92! 


DA92! 




DA92! 




DA92! AD 1S8F 

ADJUST 

LDA CONFLGS 


DA95! 4A 


LSR A 

»IS AUTO-FPLLOD (BIT I) TRUE? 

DA94! 900 


BCC ADJRTS 

{NO* IGNORE 

DA98! AS F4 


LDA CH 


BA9A! C9 14 


CAP *20. 

{CURSOR LESS THAN 20’ 

DA9C! BOO 


DCS ADJDK 

;no> continue 

DA9Ei 4f. 8?DA 


JAP TAW 

{YES. TAB FUU LEFT AND RETURN 

DAAt! 




cm oo 




DAAl! 38 

ADJDK 

SEC 


DAA2! ED IIBF 


SBC HFFT 


baas: 300 


m adjlft 


DAA7! C9 25 


CUP *37. 


DAA9! BOO 


BCS ADJRT 


DAAIi 




DA94IOO 




DAM! 40 

ADJRTS 

RTS 

{DON'T ADJUST 

BAAC! 




DAAWOO 




DAAC! A4F4 

ADJRT 

LDT CH 


DAAE! CO 4D 


CRY *77, 


dado: boo 


BCS FARRT 


DAD2! 38 


SEC 


DAD3! E9 24 


SBC *.16, 


DADS! 4C 230A 


JAP KSHIFT 


DAB8! 




DABOtOO 




DAB8! 4C 85DA 

FARRT 

JAP TABZ 


dabi: 




DAASt 00 




DABBI 4C 238A 

ADJlFI 

JAPHSHIFT 


BABE! 




DAK! 




DAK! 

.INCLUDE BIOS»TOP*TFXT 


dak: 




dak: oo oo oo oo oo oo oo 


.QRG 

0FF00 


FFOO! 

FFOO! 
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r*\ 




FFOO 


1 



FOO 


; TOP PORTION OF BIOS FOLDS IN AND OUT BIOS DOOO BANK 

FOO 

FOO 


5 

* 




I 



FOO 

FOO 

FOO 


t 



FOO 


r 



FOO 


> BAIN BIOS JUMP TABLF. CAllfD FROH INTERPRETER 

FOO 

FOO 

FOO 


• 

f 

» 




f “ " ’ 



FOO 





FOO 

4C mt 


JHP QCREAD 

iCONSOLE READ 

FOJ 

4C mt 


JHP QOtflTF 

{CONSOLE URUE 

FOO 

4C mt 


JMP QCINLT 

{CONSOLE INIT 

F09 

4C tm 


JHP QPURITf 

{PRINTER UNITE 

FOC 

4 cm* 


JHP CffINIT 

{PRINTER INIT 

FOf 

4Ctm 


JHP QKJRITF 

{DISK URTTf 

F12 

4C tm 


JHP 6DREAD 

{DISK READ 

F15 

4C tm 


JHP (BJNIT 

{DISK INIT 

F18 

4C tm 


JHPffiREAD 

{REMOTE READ 

FID 

4c tm 


JHP Q88RITE 

{REMOTE ORITf 

FIE 

4c tm 


JKP QRINIT 

5REK0TF INIT 

F2t 

F24 

F24 

4ct m 

• 

JHP 8GWITE 

{GRAPHIC LWITF 


f 



F24 


• 

i 



F24 


> STRIP LOCAL. RETURN ADDRESS 

F24 


1 STRIP PASCAL ADDRESS AND SAVE IN RFTb REIH 

F24 


I THEN RESTORF LOCAL. RET ADOfl AND RETURN 

F24 


i MEANWHILE UNFOLDS BIOS INTO DXXX 

F24 

F24 


• 

i 

• 




f ““““ ' 



F24 





F24 





F24 

85 or. 

SAVERET 

STA TU 

{SAVE A REG 

F24 

AO 8300 


LDA OC083 

{UNFOLDS BIOS INTO DXXX 

F2? 

68 


PLA 


F2A 

85 00 


STA TT? 

{LOCAL. RET ADDRESS 

F2C 

68 


PLA 


F2B 

85 oe 


STA TT3 


F2F 

68 


PLA 


F30 

8D lftBF 


STARETl 

{PASCAL RETURN ADDRESS 

F33 

68 


PLA 


F34 

80 1BBF 


STARETK 


F37 

AS 0£ 


LDA TT3 


F 3? 

48 


PHA 

{RESTORE LOCAL RETURN ADDRESS 

F3A 

AS 00 


LDA TT2 


F3C 

48 


PHA 


F39 

ASOC 

SKIPSAV 

LDA m 

{RESTORE A REG 

F3F 

60 


RTS 

{BACK TO LOCAL CALLER 

F40 





F40 


• 




1 



F40 


4 

V 
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F40! 

F40! 


FFSOi 

FF50J 

FF50! 

F»i 

FFSOi 

FFSOi 


FOLDS INfERP INFO DXXX 
Tift RETURNS TO PASCAL VIA 


FF40I 

> RETURN ADDRESS SAVE. IN RED.. RETH 

F40t 

* 

i 



F40! 

• 



F40! 




F40! 85 OC 

GOBACK 

STA Til 

•SAVE A REG 

F42! AD 1BBF 


LDA RETH 


F4S! 48 


PHA 


F46i AD 1ASF 


LDA RETL 


F4?: 48 


PHA 

SPOT PASCAL RETURN ADDRESS ON STACK 

F4Ai AD8BC0 


LDA 0CO88 

.FOLD INTER? INTO DXXX 

F4BS A5 OC 

SKIPIT 

LDA m 

.‘RESTORE A REG 

FF4F! 60 


RTS 

>AMD BACK TO PASCAL 


PRESERVE OU) IORTS LOCATIONS 


FFSOi 


FFSOi OO 00 00 00 00 00 00 ,ORG OFFS 

Fa: 

FFa: 60 IORTS RTS IFIXEO RTS OP CODE 

Fa: 

Fa: i- 


Fa: 

Fa: 

Fa: 

Fa: 

Fa: 

Fa: 


THIS CONCK VECTOR CALIED FROM DOS 
IF ftOVEOi CHANGE EQIjATl IN DOS 


Fa: 4C 8106 

Fa: 

fs: 

Fa: 

Fa: 

Fas 

Fa: 

Fa: 

Fa: 

Fa: 

Fa: 20 24FF 
Fa: 20 8106 
F62! 4C40F 
F65i 
F6S. 

F6SS 

F65S 

F65i 

F65S 

F6S: 

F65! 

F6SS 

F6S! 


JKP CONCK 


THIS CffCK VECTOR USED BY KEPRESS FUNCTION 
IF NOVEOi CHANGE KEYPRESS FUNCTION 


JSR SAVERET 
JSR CONCK 
JNP GOBACK 


i EACH BIOS ROUTINE UNFOLDS DXXX RAN 
I THEN DOES ITS BUSINFSSr THEN 
i FOLDS RAN AGAIN 
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FE651 

AD 83C0 

JSTART 

FF6fl! 

4C DDD5 


FF6D! 

AD 83C0 

JRESET 

FF6E! 

4C BC05 


FF71! 

AD 8BC0 

JPASCAl 

FF/4! 

4C 52D1 


FF77! 



FFQ1S 

77FF 


FF77! 

20 24FF 

GCtfAD 

FF7h! 

20 A2B7 


FF7B! 

4C 40Ff 


FF8&! 



F048 

80FF 


FF80! 

20 24FF 

QCbRTTE 

FF83! 

20 B0Q7 


FF84! 

4C 40FF 


FFB?! 



F078 

89FF 


FF8?: 

20 24FF 

kmit 

FF8CJ 

20 34B7 


fsf; 

4C 40FF 


FF92i 



FFOA8 

92FF 


F92! 

20 24FF 

fiPHRITF 

FF95! 

20 30® 


FF98I 

4C40FF 


FF9D! 



FO 88 

9BFF 


F?B! 

20 24FF 

fiPINIT 

FF9E! 

20 8307 


FFAl! 

4C 40FF 


FA4! 



FA4i 



FF188 

A4FF 


FA4! 

20 24FF 

fl WRITE 

FA7! 

20 3CD0 


FFAft! 

4C 40FF 


FABi 



Fl$8 

ADff 


fad; 

20 24FF 

QDREAD 

FBO! 

20 40® 


FBI! 

4C 40FF 


FFBAi 



FU8 

BtfF 


FW! 

20 24FF 

QDINIT 

FB?1 

20 04® 


FBC! 

4C 40FF 


FBf! 



Fm 

BFFF 


FBfi 

20 24F 

GRREAD 

FFC21 

20 4ED8 


FC5! 

4C 40FF 


FCS! 



F1C8 

C8FF 


FC81 

20 24FF 

QR8RITF 


IDA flf-083 IRPROTt UNFOLD 

J(4P START 
LBA OC083 
JBP RESET 

LBA CCQSR tFOLD IN INTFRP 

JMP GOFQRTT 


JSR SAVERET 
JSR CREAD 
J8P EOBACK 


JSR SAVERff 
JSR CURITE 
JNP COBftCK 


JSR SAVERET 
JSR CINIT 
JHP GOBACX 


JSR SAVERET 
JSR PtSRITF 
Jtf? GOBACK 


JSR SAVERET 
JSR PINIT 
JKP GOBACK 


JSR SAVERET 
JSR DHRITF 
JKP GOBATA 


JSR SAVERET 
JSR BREAD 
JS? COBftCK 


JSR SAVERET 
JSR DINIT 
JKP GOBACK 


JSR SAVERET 
JSR BREAD 
JKP GOBATA 


JSR SAVERET 
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FFD1! 


FFDA! 


ffoa: 


FFEJi 

FFEJ! 

FFEJ! 

FF£3i 

FFEI! 

FFEJi 

FFEJ! 

FFEJi 

FFEJ! 

FFEJ! 

FFF4! 

FFF4! 


- 25 BIOS 

FILE! 8I0SJT0P.TFXT 


20 0908 


JSR WRITE 


4C 40FF 


JHP GOBACK 


BIFF 

20 24FF 

flfilNIT 

JSR SAVERET 


20 9C07 


JSR RINIT 


4C40FF 


JrtP goback 


DAFF 

20 24FF 

BGIWITE 

JSR SAVERET 


20 58FF 


JSR IORTS 

> DO NOTHING FOR HOU 

4C40ff 


JHP GOBACK 



» 

i m AND RESET VECTORS 
i FOR NOB. NO INTERRUPTS, 
i 

HATRE SOJN 

1 

00 00 00 00 00 00 00 

,0R5 0FFF4 


0100 


.HORB 1 

{RELEASE VERSION 1 

45FF 


iHQRO JSTART 

{START POINT FROM BOOT 

4BFF 


.HORB JRESET 

iKHl VECTOR 

4BFF 


.BORO JRESET 

{RESET VECTOR 

4BFF 


•BORO JRESET 

ilU VECTOR 


0004! 

0004! 

0000 ! 

0000 ! 

OOOO! 

OOOO! 

0000 ! 

OOOO! 

OOOO! 

OOOO! 

OOOO! 

OOOO! 

OOOO! 

OOOO! 

OOOO! 

OOOO! 


THAT'S ALL FOLKS.... 


*FND 
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PAS - 24 BIOS FILES. STfKBQLTARf DUMP 


AB * Absolute 

IB - Label 

UD - Undefined 

HC -Hacro 

RF - Ref 

1IF - Def 

PR - Proc 

FC - Func 

PB - Public 

PV - Private 

CS - Consts 



ADJlfT 

LB BABB! 

ADJOX 

LB DAA1! 

ADJRT 

LB DAAC! 

ADJRTS 

BAS1H 

AB00F1! 

BASIL 

AB OOfOi 

BAS2H 

AB 00F3! 

BAS2L 

BIOS 

PR-! 

BREAK 

AB BF16! 

BSCL2 

LB DA02! 

BSRET 

BXSIH 

AB 0005! 

BXS1L 

AB 0004! 

BXS2H 

AB 0007! 

BXS2L 

CENtl 

LBB83F! 

CENU2 

LB 0843! 

CH 

AB 00F4! 

CHECKH 

CKCTRL 

LBD8F3! 

CKFXn 

LB D725! 

CKNX 

LB DM8! 

CLP AS 

CLEOS 

LB 0989! 

am 

LB B98F! 

CUKP 

LB D9A9! 

CURIO 

CNOSBYTS LB D60D! 

CN07BYTS LB D611! 

CHTRL 

LB D8F1I 

(MX 

COPY 

LB DAt4! 

COPY! 

LB D932! 

CQPY2 

LB D93D! 

CR 

CTRLJHP 

LBD887! 

CV 

AB 00f5! 

CURITE 

LB D7B0S 

DINIT 

DONECK 

LB B71BS 

DOPSX 

LB 08B5! 

BREAD 

AB D040! 

PRESET 

FARRI 

LBDAB8! 

FIRST 

AB OOFO! 

FORK 

LB D97AS 

GOBACK 

HQHE 

LBB980! 

HSHIFT 

LB DA23! 

HTAB 

LB DA7E! 

ICON 

JDOKK 

LBD6E3! 

JJKV 

LB D979! 

JPASCAl 

UFF71! 

JRESET 

JUHP2 

AB 0003! 

LF 

LB D910! 

LF2 

LB D923! 

LFFLAG 

MCHLS 

ABOOOC! 

NUBS 

LB B973! 

NLEFT 

ABBFJ1! 

NOCRY 

NOTTS 

LB B605! 

NOTK 

LB DMA! 

KOTSFQ 

LB D8DC! 

HOTSTOP 

NXTCRB 

LBB5F3! 

HXTYP 

LB DM7! 

OFFLFT 

LBD9D8! 

OFFLINE 

PIMIT 

LBD788! 

PURITE 

LB D830! 

KIHIT 

LB FF89! 

QCREAD 

8BURTTE 

LB FFA4! 

QGURITE 

LB FFOA! 

0PINIT 

LBFF9B! 

OPURITF. 

RANK 

ABBF14! 

RANH 

AB BF13! 

m 

LBB850! 

REST 

RIN1T 

LBD79C! 

RNBINC 

LB BA87I 

RNM 

LBDA8F! 

RPTR 

RURITE 

LBB809! 

SAVERFT 

LB F24! 

SCRWJK 

ABBFOE! 

SCROLL 

SKIPIORT LB B615! 

SKIPn 

LB FF4D! 

SKIPSAV 

IB FF30! 

SKPCOUT 

STQABV 

LB D9B3! 

STAR 

LB D62E! 

ST0R2 

IB D9F1! 

STORE. 

TAB2 

LBDA85! 

TAB3 

LB BA891 

TEMPI 

ABOOF6! 

TEKP2 

n2 

ABOOOB! 

TT3 

AB OOOE! 

UPPER 

LB D3EA! 

VIDQUT 

UAIT2 

LBD&76! 

UAIT3 

LB 0677! 

WON 

LBD81F! 

\m 

YOK 

LBD8C9! 

ZERLP 

LB D5E5! 

ZFROH 

AB 0001: 

7FRQL 


IB DAAB! ADJUST IB DA92! ADVANCE IB B9B6! ADVfUS LB D9BF 
AB0QF2! BASCAl LB D9FIS BELI LB 0957! BELL2 LB D95E 
IB 0986! BUFFER AB 0200! BUFOK LB D7J71 RWP LB D/2C 
AB COM! CBUFLFN AB 004E! CENIT LB D791! SNR LB D853 
ABOOOB! CHECKl ABOOOA: CINIT LBD734! CINTT2 LBD75F 
LB Wvi7| CKPTRH AB 00091 CKPTRL AB OOOBI CLFOL LB D9A7 
LB D7F4! CLRIOl LB D7AD1 CLRI02 LB B81C! CLRI03 LB D7B6 
LB D6CA! CaW AB 03B1 i CfiHCK LB 0681 i CONFLGS AB BFJ5 
LB D918! CREAD LB D7621 CRFAD2 IB D771I CTRLCH LB D87B 
AB BOM! BrtPRTS LB D/33! DflCTRL LB D8FC! DOIT LB DA8B 
ABB0J7I MTTF AB D03CI ESCAPE LB D90CI FSCNT AB BF12 
LB FF401 CQFQRIT AB D)52i GOTOXf LB B9121 HTDiiP LB DA5E 
LB D7A3I INVER! LB 09ECI TORTS LB FF58! ISER LB D7B0 
LB FfAB! JRr! LB D9691 JSTART LB FFA5I JlMPl AB 0002 
AB BFOF! LFPASS LB B33A! LOPJ LB BA38! L0P2 LB DA30 
LB D671! WJPRQN LB D634! NOTB.RK LB DM! KQTFUJS LB D70A 
LB D6E4! NffiKPJ LB DA54! NQURP2 LB DAW! NTTAB LB DABC 
LB D84B! OFFRI LB D9DE! OKflElT LB DAW! Ofl?SY LB D9C7 
LB FF77! BCURTTE LB FFBO! QDINIT LB FFB6! QIWEAD LB FFAD 
LBFF92! QRIHIT LB FFOli QRRFAD LB FFBF! PiRITE LB FFC8 
LB DSBC! RFTK AB BflB! REEL AB BFIA! REVlf LB D9&A 
ABBFJ8! RRfAD LB D34E! RSER LB D86C! RTS7 LB DA2? 
LB D928! SEQRFT LB D9D8! SERI LB D7B9! SETT LB DSBC 
LB D948! SLTTYPS AB BFFB! START LB D50D! STARTUP LB DM4 
LB D9C0! STORE! LB D9D5! ST0RE2 LB D9E9! SYSCO* AB OOF8 
AB OOF7! TRYfJX! LB M29! TSTKBD IB D69A! TT1 AB OOOC- 
LB D7E7! VISLP LB DA4F! VQUT2 LB D39F! BAIT LB D675 
LB DSli! UPTR AB BFJ9! USER LB B7F7! XOK LB D3B7 
AB 0030! 


PAS- 27 BIOS FILE!. 


Current ainiaua vace is 8174 words 

DA4EI ECD9 

mi 7E9A 

D750I 89BA 

D763I 92DA 

DW5I71FF 

Asseabls coaelete! 1250 lines 
^ 0 Errors flawed on this Asseabls 
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INTERNATIONAL 
APPLE CORE 

P O. BOX 976, DALY CITY, CALIFORNIA 94017 USA 


APNOTE 


PASCAL - PEEKS & POKES 
BY DAN SOKAL 

This program has been designed to be added to the 
Pascal SYSTEM.LIBRAY. See section 4.2 in the 
reference manual for info on the Librarian. 

(*SS+ / LPRINTER:*> 

<************************************ 

* * 

* PEEK and POKE * 


* Dan Sokol 3 Dec 79 * 

* * 

* * 

************************************5 

unit PEEKPOKE; intrinsic code 26; 
interface 

^ procdure POKE (var ADDR,DATA:integer); 

function PEEK (var ADDR: integer): integer; 


implementation 

type PA=packed array CO..13 of 0..255; 
MAGIC=record case boolean of 

true : (INT: integer); 
false : <PTR: A PA); 
end; 

var CHEATsMAGIC; 

procedure TEST (var DATA: integer); forward; 

procedure POKE; 
begin 

TEST(DATA); 

CHEAT.INT:=ADDR; 

CHEAT.PTR A C03:=DATA; 
end; 




Thlj application note has boen provided by an Apple Computer usor. The International Apple Core does not guarantee the accuracy of this in¬ 
formation in any way and cautions that modifications may void a manufacturer's warranty. The International Apple Core is a non-profit or¬ 
ganization unaffilliated with Applo Computer, Inc. or any othor manufacturer. Apple II, Applesoft, and Apple Computer are trademarks of 
Apple Computer, Inc. 
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function PEEK; 
begin 

CHEAT.INT:=A0DR; 

PEEK:=CHEAT.PTR A C0 3; 
end; 

procedure TEST; 
begin 

DATA:=abs(DATA mod 255); 
end; 

(★MAIN PROGRAM*) 
begin 

(★DUMMY PROGRAM*) 
end. 


SAMPLE SUBROUTINE FOR KEYPRESS 

When you use BINDER.CODE to setup your system to an 
external terminal, or to an 80 column board (like th 
M & R Sup.R.Terminal), the Apple will not recognize 
KEYPRESS from that terminal. This subroutine will 
correct that - it uses the PEEK 8 POKE above. 

(*SI+*) 

function KEY: boolean; 

var keyboard, TEMP:integer 
begin 

KEYBOARD:=-16384; TEMP:=PEEK (KEYBOARD); 
if TEMP> 128 then KEY: true else KEY:=false; 
end 


(*I used segment 26 *) 


(♦Format is : *) 
(♦POKE (addr/data); *) 
(♦data:=PEEK(addr); 


Both addr and data 
must be INTEGER variables 
(not constants) 

To use in a program you 
must follow the program 
name with : 

USES PEEKPOKE; 

*) 


(* this defines a variant *) 
(* record which will map *) 
(* to an absolute hardware *) 
(* adress in the Apple. *) 


(* This procdure assures *) 
(* only vaild data will *) 
(* get poked :> 




INTERNATIONAL 
APPLE CORE 

P O. BOX 976, DALY CITY, CALIFORNIA 94017 USA 


APNOTE 


TEXT SCREW MAPPING AND USE 

Text Pages The Apple ll has two "pages” of text that it can display. Text page one resides in 

memory from decimal 1024 to 2047 ($400-$7FF). Page two resides from 2048 to 3072 
($800 to $C00) 

PAGE SWITCHING 

It is possible to switch between pages by “POKING” from BASIC. The default setting 
is page one. If you wish to display page two, the statement "POKE—16299,0“ 
will display it. “POKE—16300,0” will return the display to page one. (You must set 
LOMEM:3072 in order to protect page two from being clobbered.) 

"POKING” TEXT 

It is possible to place characters on either screen by “POKING" them directly. In order 
to do this you need to know the memory address of the spot into which you wish to poke 
the character and the decimal value of the character itself. The following two tables 
will give you this information, but first a demonstration. 

DEMONSTRATION: NO “PRINT” STATEMENTS 


10 

CALL 

-936 



100 

POKE 

1461.129 

RE11 

■■A" 

1 10 

POKE 

1463.144 

REM 

•‘P- 

120 

POKE 

1463. 144. 

REM 

lip «• 

1 30 

POKE 

1467. 140 

REM 

M^l* 

140 

POKE 

1469. 133 

REM 


ISO 

POKE 

1472, 1S7 

REM 


160 

'>99 

POKE 

END 

1473, 155: 

REM 

THE OTHER 


Text Screen Maps 




PAGE ONE 

LINE # POKE ADDRESS 

00- 1024 

01-1152 

02- 1280 

03- 1408 

04- 1536 

05-1664 

06-1792 

07-1920 

08-1064 

09-1192 

10 -1320 

11 -1448 

12 -1576 

13 -1704 

14 -1832 

15 -1960 

16 -1104 

17 -1232 

18 -1360 

19 -1488 

20 -1616 

21 -1744 

22 - 1872 

23 -2000 


PAGE TWO 

LINE # POKE ADDRESS 

00 - 2048 

01-2176 

02 - 2304 

03 - 2432 

04 - 2560 

05 - 2688 

06-2816 

07-2944 

08-2088 

09-2216 

10 -2344 

11 -2472 

12 -2600 

13 -2728 

14 -2856 

15 -2984 

16 -2128 

17 -2256 

18 -2384 

19 -2512 

20 -2640 

21 -2768 

22 -2896 

23 -3024 


ADDRESSES SHOWN ARE FOR THE FIRST CHARACTER IN EACH LINE 
—LINES ARE 40 CHARACTERS LONG 

This application note has been provided by an Apple Computer user. The International Apple Core does not guarantee the accuracy of this in¬ 
formation in any way and cautions that modifications may void a manufacturer's warranty. The International Apple Core it a non-profit or¬ 
ganization unaffilliated with Apple Computor, Inc. or any other manufacturer. Apple II, Applesoft, and Apple Computer are trademarks of 
Apple Computer, Inc. 
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rs 

HowTo Use It 




CHAR 

NORMAL 

INVERSE 

FLASH 

@ 

128 

0 

64 

A 

129 

1 

65 

B 

130 

2 

66 

C 

131 

3 

67 

D 

132 

4 

68 

E 

133 

5 

69 

F 

134 

6 

70 

G 

135 

7 

71 

H 

136 

8 

72 

1 

137 

9 

73 

J 

138 

10 

74 

K 

139 

11 

75 

L 

140 

12 

76 

M 

141 

13 

77 

N 

142 

14 

78 

0 

143 

15 

79 

P 

144 

16 

80 

Q 

145 

17 

81 

R 

146 

18 

82 

S 

147 

19 

83 

T 

148 

20 

84 

U 

149 

21 

85 

V 

150 

22 

86 

w 

151 

23 

87 

X 

152 

24 

88 

Y 

153 

25 

89 

Z 

154 

26 

90 

[ 

155 

27 

91 

/ 

156 

28 

92 

) 

157 

29 

93 

< 

158 

30 

94 


159 

31 

95 

SPACE 

160 

32 

96 

LOOK! 





NO ■ PRINT” STATEMENTS! 

ICO CALL -936 POKE 74,0 POKE 
75.12: POKE 204,0 POKE 205 
,12 REM SET LOKEM 4. VAR PTR 
110 POKE 1024, 144 POKE 1025, 129 
POKE 1026.135 POKE 1027, 

133 REM POKE "PACE" IW10 PC 1 
120 POKE 34,2 VTA8 3 LIST 
130 TRACE DIM C*(30) 

140 C*="B00<400 7FFM E8EAG'* 

150 FOR CHR=1 TO LEN(CS) 


CHAR 

NORMAL 

INVERSE 

FLASH 

i 

161 

33 

97 


162 

34 

98 

» 

163 

35 

99 

$ 

164 

36 

100 


165 

37 

101 

& 

166 

38 

102 


167 

39 

103 

( 

168 

40 

104 

) 

169 

41 

105 


170 

42 

106 

* 

171 

43 

107 


172 

44 

108 

— 

173 

45 

109 


174 

46 

110 

/ 

175 

47 

111 

0 

176 

48 

112 

1 

177 

49 

113 

2 

178 

50 

114 

3 

179 

51 

115 

4 

180 

52 

116 

5 

181 

53 

117 

6 

182 

54 

118 

7 

183 

55 

119 

8 

184 

56 

120 

9 

185 

57 

121 

; 

186 

58 

122 


187 

59 

123 

< 

168 

60 

124 


189 

61 

125 

> 

190 

62 

126 

7 

191 

63 

127 


160 POKE Sll+CHR. ASC(CO(CHW)> 
170 NEXT CHR. CALL -144 
180 POKE 2033.50 POKE 1029,49 
190 FOR T-I TO 3 
200 POKE -16299, 0 REM PACE 2 
210 FOR D=1 TO 100 NEXT D 
220 POKE -16300.0 REM PACE l 
?3D FOR 0=1 TO 100: NEXT D 
240 NEXT T: NOTRACE CALL -936 
LIST : POKE 34.0: ENO 


Line 100 

—Clears the screen and sets LOMEM to 3072. 

Line 110 

—Pokes the word page’ into the upper left corner of page one (character by character). 

Line 120 

—Sets scrolling window and lists the program. 

Line 130 

—Sets trace mode and dimensions C$. 

Line 140 

—Sets C$ equal to a couple of monitor commands. ”800--400.7FFM" is a command 
which moves the contents of page one to page two display memory. "E88AG" tells 
integer BASIC to continue where it left off. 

Lines 150-170 

—Poke the commands (C$) into the input buffer, character at a time, then call a monitor 
routine which executes the contents ol the buffer (The input buffer is from 512 to 
767 decimal or $200 to $2FF Hex). 

Line 180 

—Pokes an inverse “2" into page two and an inverse T" into page one. 

Lines 190-240 

—Switch from page one to page two a few times, then exit from the program with page 
one set and the program listed. 
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APPLE CORE 

P. O. BOX 976, DALY CITY, CALIFORNIA 94017 USA 


APNOT 


APPLICATIONS NOTE FOR PASCAL 

PASCAL LONG INTEGER FIX 


An error in the implementation of long integers in the Apple 
PASCAL language system results in a stack crash during a compare 
operation. 

This program is designed to repair the library module 
LONGINTEGER. To use, type the program in, then compile and 
execute. All libraries should be updated with this program. Save 
the text for possible future use. 




Thi* application nots ha* been provided by an Apple Computer uter. The International Apple Coro doe* not guarantoo the accuracy of thl* In¬ 
formation in any way and cautions that modifications may void a manufacturer's warranty. The International Apple Core 1s a non-profit or¬ 
ganization uneffllliated with Apple Computer, Inc. or any other manufacturer. Apple II, Applesoft, and Apple Computer are trademarks of 
Apple Computer, Inc. 
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{$ 1 -} 

PROGRAM FIXCOMPARE; 

TYPE DISKINFO » RECORD 

DADDR .-INTEGER; 

LENG: INTEGER 
END; 

NAME » PACKED ARRAY [1..8] OF CHAR; 

SEGDIC = RECORD 

DINFO: ARRAY[0..15] OF DISKINFO; 

SEGNAME: ARRAY[0. • 15] OF NAME; 

FILLER: ARRAY(1,,416] OF INTEGER 
END; 

BLOCK = PACKED ARRAY(0..511] OF 0..255; 

VAR I,J:INTEGER; 

NOTFOUND:BOOLEAN; 

F:FILE; 

S:STRING; 

BLOCKZERO:SECDIC; 

DATA:BLOCK; 

PROCEDURE READERROR; 

BEGIN 

WRITE('BAD BLOCK IN LIBRARY'); EXIT(PROCRAM) 

END; 

BEGIN 

NOTFOUND:=TRUE; 

REPEAT 

WRITE('NAME OF LIBRARY FILE:'); READLN(S); 

RESET(F.S); 

UNTIL EOF OR (IORESULT«*0); 

IF BLOCKREAD(F,BLOCKZERO,1,0) <> 1 THEN READERROR; 

FOR I :- 0 TO 15 DO 
BEGIN 

IF BLOCKZERO.SEGNAME[I] = 'LONGINTI' THEN 
BEGIN 

NOTFOUND := FALSE; 

J :« BLOCKZERO.DINFO[I].DADDR + 1; 

IF BLOCKREAD(F,DATA,1,J)<>1 THEN READERROR; 

IF DATA[495]«244 THEN 
IF DATA[494]=208 THEN 
BEGIN 

WRITELN('LONG INTEGER PATCH BEING MADE'); 

DATA[494]:=240; 

IF BLOCKWRITE(F,DATA,l,J) = 1 THEN 
WRITELN('PATCH COMPLETE') 

ELSE 

WRITELN('ERROR WHILE WRITING PATCH, SEGMENT ',1) 

END 
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ELSE 

IF DATA[494}»240 THEN 

^ WRITELN('SEGMENT ',1, 

' - long integer unit has ALREADY BEEN FIXED') 

ELSE 

WRITELN('CAN"T RECOGNIZE LONG INTEGER UNIT IN SEGMENT ',1) 

ELSE 

WRITELN('CAN"T RECOGNIZE LONG INTEGER UNIT IN SEGMENT ',1) 

END 

END; 

IF NOTFOUND THEN WRITELN('NO LONG INTEGER UNIT FOUND') 

ELSE WRITELN('PROGRAM COMPLETE'); 

END. 
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PASCAL HI—RES LOAD/SAVE TO DISK 

This demo program creates a hl-res picture in PASCAL, then saves It 
to disk. It Is then reloaded and displayed. 

The "Uses Tyrtlegraphics" statement allocates space for the hi-res 
screen, and should be referenced even If Turtlegraphlcs are not 
actually used. Note that the “Close (P.Lock)" closes the file and 
places It permanently Into the volume directory. 




This application note ha* boon provided by an Applo Computer user. The International Apple Coro does not guarantee the accuracy of thl* in¬ 
formation In any way and cautions that modifications may void a manufacturer's warranty. The International Apple Core it a non-profit or¬ 
ganization unaffilliated with Applo Computer, Inc. or any othor manufacturer. Apple II, Applesoft, and Apple Computer are trademarks of 
Apple Computer, Inc. 
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PROGRAM DEMOPIC; 

(* *) 

(* PROGRAM LOADS AND SAVES HIRES SCREEN TO DISK *) 

(* APPLE COMPUTER 12/79 BY JO & CHARLIE KELLNER *) 

(* BASED ON "SLIDE SHOW" BY BILL ATKINSON *) 

(* *) 


USES TURTLEGRAPHICS, APPLESTUFF; 

CONST HIRESP1 = 8192; 

VAR CHEAT: RECORD CASE BOOLEAN OF 

TRUE: (INTPART: INTEGER); 

FALSE: (PTRPART:~INTEGER); 

END ; 

PROCEDURE DRAWPICS; (* THIS CAN BE REPLACED WITH ANY GRAPHICS ROUTINE *) 
BEGIN 

MOVETO (0,0); PENCOLOR (WHITE); 

MOVETO (279,0); TURN (90); 

MOVETO (279,191); TURN (90); 

MOVETO (0,191); TURN (90); 

MOVETO (0,0); PENCOLOR (NONE); 

MOVETO (75,95); WSTRING (' THIS IS A TEST '); 

MOVETO (28,5); WSTRING ('< PRESS RETURN TO EXIT PROGRAM >') 

END : 

PROCEDURE BLOAD (FILENAME: STRING); 

VAR 10; INTEGER; 

F: FILE : 

BEGIN 

CHEAT. INTPART:*»HIRESP1; 

RF.SET(F,FILENAME); 

10:»BLOCKREAD(F,CHEAT.PTRPART**, 16); 

CLOSE(F.LOCK) 

END : 


PROCEDURE BSAVE (FILENAME:STRING); 

VAR 10: INTEGER; 

F: FILE ; 

BEGIN 

CHEAT.INTPART:=HIRESP1; 

REWRITE (F,FILENAME); 

I0:«8L0CKWRITE (F,CHEAT. PTRPART*', 16) ; 

CLOSE (F.LOCK) 

END : 

BEGIN (* MAIN PROGRAM *) 

INITTURTLE; 

DRAWPICS; 

BSAVE (':DEM0.PIC'); 

FILLSCREEN (BLACK); (* CLEARS HIRES SCREEN *) 

BLOAD (':DEMO.PIC'); 

REPEAT UNTIL KEYPRESS; 

TEXTMODE 

END . 
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PASCAL UNITS 


Hodular programming means the separation of procedures and 
functions, or groups of them, from the main program. Source 
language modules are called UNITs, and are Incorporated in libraries 
for use with Pascal programs. Units may consist of procedures, 
functions, or a combination of these, in Pascal and in assembly 
language. 

Separate compilation has several advantages in the development of 
any program, because it allows you to approach the task as a group 
of smaller tasks which are linked together in a logical manner. The 
host program must contain a USES statement to utilize routines from 
the UNIT. 

There are two principal kinds of UNITs: Regular UNITs, and Intrinsic 
UNITs. When a host program USES a Regular UNIT, the UNIT'S code is 
inserted into the host program's codefile by the Linker. This needs 
to be done only once unless the UNIT is modified and recompiled; 
then it must be relinked into the host program. 

When a host program USES an Intrinsic UNIT, the UNIT'S code remains 
in the library file and is automatically loaded into memory when the 
host program is executed. This keeps the size of the host program's 
codefile down; it also allows the UNIT to be modified and recompiled 
without the need to relink. If the UNIT resides in the 
SYSTB1.LIBRARY, the Linker will be called automatically. Otherwise, 
you must explicitly invoke the Linker. 

Pages 187-195 in the Pascal Reference Manual explain the syntax and 
structure of UNITs. 

Separate UNITs do not work in the current Pascal implementation. 


^ _ 


Thlt application noto has been provided by an Apple Computer user. The International Apple Core does not guarantee the accuracy of this in¬ 
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ganization unaffdilated with Applo Computer, Inc. or any other manufacturer. Apple II, Applesoft, and Apple Computer are trademarks of 
Apple Computer, Inc. 


G16-1 


m 




INTERNATIONAL 
APPLE CORE 

P. O. BOX 976, DALY CITY, CALIFORNIA 94017 USA 


APNOTE 


DOS 3.2 DEMONSTRATION PROGRAMS 


The following programs demonstrate the various features of DOS 3.2. 
They are written for Applesoft and some of the programs will be 
difficult to convert to Integer Basic. 






This application note has bean provided by an Apple Computer user. The International Applo Coro does not guarantee the accuracy of this in¬ 
formation In any way and cautions that modifications may void a manufacturer's warranty. The International Apple Core is a non-profit or¬ 
ganization unaffilliated with Apple Computer, Inc. or any other manufacturer. Apple II, Applesoft, and Apple Computer aro trademarks of 
Apple Computer, Inc. 





]LIST 


r*s 


100 REM TEST MON 
110 LET D$ = CHR$ (4) 

120 LET S$(l) - "NO MONITOR" 

130 LET S$(2) = “MON C" 

140 LET S$(3) = "MON 1" 

150 LET S$(4) - "MON 0" 

160 LET S$(5) = "MON C,I" 

170 LET S$(5) = "MON C,0“ 

180 LET S$(6) - "MON C,0" 

190 LET S$(7) “ "MON 1,0" 

200 LET S$(8) - "MON C,I,0" 

210 HOME 

220 VTAB 1: HTAB 16: PRINT “TEST MON" 

230 FOR L = 1 TO 8 

240 VTAB L + 4: HTAB 5: PRINT "<"L"> "S$(L) 

250 NEXT 

260 VTAB 15: PRINT "ENTER A NUMBER (1-7): " 

270 PRINT : PRINT "PRESS ’ESC’ TO LEAVE TEST MON" 

280 VTAB 15: HTAB 23: GET G$ 

290 IF ASC <G$) - 27 THEN HOME : END 
300 LET G = VAL (G$) 

310 IF G < 1 OR G > 8 THEN 280 
320 PRINT 

330 PRINT D$"NOMON I,0,C" 

340 HOME 

350 PRINT TAB( 20 - LEN (S$(G)) / 2);S$(G) 

360 PRINT : PRINT 
370 IF G = 1 THEN 390 
380 PRINT D$;S$(G) 

390 PRINT TAB( 11);"WRITING TO THE DISK": PRINT 
400 PRINT D$”OPEN TESTER" 

410 PRINT D$”WRITE TESTER" 

420 PRINT "THIS IS THE DATA TO THE DISK" 

430 PRINT D$"CLOSE TESTER" 

440 VTAB 12: PRINT TAB( 10);"READING FROM THE DISK”: PRINT 
450 PRINT D$”OPEN TESTER" 

460 PRINT D$”READ TESTER" 

470 INPUT A$ 

480 PRINT D$"CLOSE TESTER" 

490 PRINT D$"DELETE TESTER" 

500 VTAB 20: PRINT "PRESS ANY KEY FOR THE MENU 
510 POKE - 16368,0 
520 GET A$ 

530 GOTO 110 


] 
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0 REM MAKE TEXT 
10 DIM A$(100):I - 0 
20 D$ - CHR$ (4); REM CTRL-D 
25 TEXT : HOME 

30 PRINT “THIS PROGRAM LETS YOU WRITE TEXT FILES.” 
34 PRINT "YOU MAY TYPE ONE STRING AT A TIME." 

38 PRINT "A STRING MAY HAVE UP TO 239 CHARACTERS." 
40 PRINT : PRINT "(PRESS THE RETURN KEY TO QUIT)" 
50 POKE 34,7: VTAB 7 
52 I - I + 1 
54 PRINT "TYPE STRING 
56 INPUT A$(I) 

58 IF A$(I) < > "" GOTO 52 
60 PRINT 

62 INPUT "FILE NAME TO STORE ? ";N$ 

65 IF N$ < > "" GOTO 70 

67 PRINT : PRINT "FILE NOT SAVED": GOTO 140 
70 PRINT D$;"OPEN ";N$ 

80 PRINT D$;"WRITE ”;N$ 

90 PRINT I - 1 

100 FOR J « 1 TO I - 1 

110 PRINT A$(J) 

120 NEXT J 

130 PRINT D$;"CLOSE ”;N$ 

135 PRINT : PRINT “TEXT FILE SAVED" 

140 POKE 34,0: END 
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0 

REM GET TEXT 


5 

TEXT : HOME 


10 

D$ = CHR$ (4): REM CTRL D 


12 

PRINT "THIS PROGRAM RETRIEVES TEXT FILES" 

14 

PRINT "CREATED BY THE 'MAKE 

TEXT' PROGRAM 

16 

PRINT : PRINT "MON C,I,0 IS 

IN EFFECT." 

18 

PRINT 


20 

INPUT "NAME OF TEXT FILE? 

Z$ 

22 

PRINT D$;"MON C,I,0" 


24 

PRINT 


30 

PRINT D$;"OPEN “;Z$ 


40 

PRINT D$;"READ ";Z$ 


50 

INPUT I 


55 

DIM A$(I) 


60 

FOR J = 1 TO I 


70 

: INPUT A$(J) 


80 

NEXT J 


90 

PRINT D$;"CLOSE ";Z$ 


100 

PRINT D$;"NOMON C,I,0" 




0 REM MAKE RANDOM 
1 REM FOR USE WITH 'RANDOM' 

10 D$ - CHR$ (4) 

20 DIM N$(9),BL(9),BW(9),ST(9) 

30 FOR I » 1 TO 9 

40 READ N$(I),BL(I),BW(I),ST(I) 

45 NEXT I 

50 PRINT D$;"OPEN APPLE PROMS,L40" 

55 PRINT D$;"DELETE APPLE PROMS" 

65 PRINT D$;"OPEN APPLE PROMS,L40" 

70 FOR I » 1 TO 9: PRINT D$;"WRITE APPLE PROMS,R”;I 
80 PRINT N$(I): PRINT BL(I): PRINT BW(I): PRINT ST(I) 

90 NEXT I 

100 PRINT D$;"CLOSE APPLE PROMS" 

110 PRINT : PRINT "FILE 'APPLE PROMS' MADE": END 

1000 DATA PARALLEL PRINT,256,8,500,COMMUNICATIONS,256,8,1250,(NOT AVAILA 
BLE),256,8,0,(NOT AVAILABLE),256,8,0,DISK BOOT,256,8,432 
1010 DATA STATE MACHINE,256,8,460,SERIAL PRINTER1,256,8,878,SERIAL PRINT 
ER2,512,8,741,CENTRONICS,256,8,1290 



0 REM RANDOM 
5 D$ « CHR$ (4) 

10 PRINT D$ ;"NOMON C,I,0" 

15 TEXT : HOME 

20 LET OP$ = D$ + "OPEN " 

30 LET CL$ » D$ + "CLOSE " 

40 LET RD$ - D$ + "READ " 

50 LET WR$ = D$ + “WRITE ” 

60 LET FL$ = "APPLE PROMS” 

70 PRINT 0P$;FL$;”,L40" 

80 GOSUB 390 

90 ON Q GOTO 100,180,480 

100 GOSUB 330 

110 FOR R - R1 TO R2 

120 PRINT RD$;FL$;",R";R 

130 INPUT N$,BL,BW,ST 

140 PRINT “ ";R; TAB( 8);N$; TAB( 24);BL; TAB( 32);ST 

150 NEXT R 
160 PRINT D$ 

170 GOTO 310 
180 GOSUB 330 

190 LET T = 7: FOR R «* Rl TO R2:T » T + 1 

200 PRINT RD$;FL$;",R";R: INPUT N$,BL,BW,ST: PRINT D$ 

210 VTAB (T): PRINT " ";R; TAB( 8);N$;: HTAB (7): INPUT Q$ 

220 IF LEN (Q$) > 15 THEN 200 
230 IF LEN (Q$) < > 0 THEN N$ = Q$ 

250 VTAB (T): HTAB (24): PRINT BL;: HTAB (23): INPUT Q$: IF LEN (Q$) 
> 0 THEN BL » VAL (Q$) 

270 VTAB (T): HTAB (32): PRINT ST;: HTAB (31): INPUT Q$: IF LEN (Q$) 
0 THEN ST « VAL (Q$) 

280 VTAB (T): PRINT " ”;R; TAB( 8);N$; TAB( 24);BL; TAB( 32);ST;” ” 

290 PRINT WR$;FLS;",R“;R: PRINT N$;",";BL;”,";BW;",”;ST 
300 PRINT D$: NEXT R 

310 VTAB (23): PRINT "PRESS THE RETURN KEY TO CONTINUE.";: GET Q$ 

320 GOTO 80 

330 PRINT : INPUT "PART NUMBER 1-9 (0«ALL) ";Q$ 

340 PRINT Q$:Q » VAL (Q$): IF (Q < 1 OR Q > 9) AND Q$ < > "0" THEN 
CHR$ (7);: GOTO 330 

350 LET Rl * Q:R2 - Q: IF Q - 0 THEN Rl = 1:R2 - 9 
360 HOME : VTAB (5) 

370 PRINT "PART# NAME SIZE IN STOCK-- 


380 RETURN 

390 HOME : PRINT TAB( 12);FL$: VTAB (10) 

400 PRINT "COMMAND","NUMBER" 

410 PRINT "-","-" 

420 PRINT "LIST"," 1" 

430 PRINT "CHANGE"," 2" 

440 PRINT "EXIT"," 3" 

450 PRINT : INPUT "CHOOSE NUMBER (1-3) ";Q$:Q - VAL (Q$) 

460 IF Q > 0 AND Q < 4 THEN RETURN 

470 VTAB (15): PRINT CHR$ (7);: GOTO 450 

480 PRINT CL$;FL$ 

490 HOME : END 

500 REM DEMONSTRATION OF RANDOM ACCESS 


< 

> 


PRINT 







0 REM EXEC DEMO 

100 Q$ » CHR$ (34): REM 34 IS THE ASCII CODE FOR A QUOTATION MARK 
110 TEXT : HOME : VTAB 2: HTAB 12 

120 INVERSE ! PRINT “« EXEC DEMO »": NORMAL : PRINT 
130 PRINT "THIS PROGRAM CREATES A SEQUENTIAL TEXT" 

140 PRINT "FILE NAMED "Q$"DO’ER”Q$” CONTAINING SEVERAL" 

150 PRINT "STRINGS, EACH A LEGAL APPLE II COMMAND." 

160 PRINT "WHEN YOU TYPE" 

170 PRINT : PRINT "EXEC DO'ER" 

180 PRINT : PRINT "THEN THE COMMANDS IN FILE DO'ER TAKE" 

190 PRINT "CONTROL OF YOUR COMPUTER. EACH COMMAND" 

200 PRINT "WILL BE EXECUTED JUST AS IF IT HAD BEEN" 

210 PRINT "TYPED AT THE KEYBOARD. THE DOS MANUAL" 

220 PRINT "DESCRIBES THE PROGRAM IN MORE DETAIL." 

230 PRINT : HTAB 10 

240 INVERSE : PRINT "« HAPPY EXECUTING »": NORMAL : PRINT 
250 PRINT "PRESS THE SPACE BAR TO MAKE THIS" 

260 PRINT "PROGRAM CREATE THE FILE DO'ER." 

270 PRINT 

280 PRINT "IF YOU WISH TO STOP THIS PROGRAM NOW," 

285 PRINT "YOU MAY PRESS THE ESC KEY." 

288 REM END INSTRUCTIONS AND WAIT FOR KEY TO BE PRESSED. 


290 GET A$: IF A$ * CHR$ (27) THEN END : REM ESC KEY PRESSED 
300 IF A$ » CHR$ (32) THEN 320: REM SPACE BAR PRESSED 
310 PRINT CHR$ (7);: GOTO 290: REM BEEP AND TRY AGAIN 



340 

350 

360 

370 

380 

385 

390 

395 

400 

410 

415 

420 

425 

430 

435 

440 

450 

460 

470 

480 

490 

495 

500 

505 

510 

520 


HOME : PRINT : REM PROGRAM STARTS HERE 
D$ » CHR$ (4): REM CTRL-D 
PRINT D$"MON C,I,0” 

PRINT D$"OPEN DO'ER" 

PRINT D$"WRITE DO'ER" 

PRINT "FP" 

PRINT "MON C,I,0" 

PRINT "REM HERE IS A PROGRAM" 

PRINT 

PRINT "100 TEXT:HOME:VTAB 5" 

PRINT "110 PRINT"Q$“HERE'S A NEW PROGRAM"Q$ 
PRINT "120 END" 

PRINT 

PRINT "SAVE NEW PROGRAM!!" 

PRINT 

PRINT "LIST : REM NEW PROGRAM!!" 

PRINT "REM PAUSE TO LOOK AT LISTING" 

PRINT "FOR X«1 TO 8000: NEXT X" 

PRINT "INT" 

PRINT "MON C,I,0" 

PRINT "LOAD COLOR DEMO" 

PRINT "LIST" 

PRINT "FP" 

PRINT "PRINT"Q$"PAUSE TO LOOK AT LISTING”Q$ 
PRINT "FOR X-l TO 4000:NEXT X" 

PRINT "MON C,I,0" 

PRINT "CALL -155 : REM JUMPS TO MONITOR" 

PRINT "800.820 I 821.840" 
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530 PRINT M FP" 

535 PRINT "PRINT"Q$"PAUSE TO LOOK AT MONITOR LISTING”Q$ 

540 PRINT "FOR X*1 TO 4000:NEXT X" 

545 PRINT "MON C,I,0" 

550 PRINT "CATALOG" 

560 PRINT "RUN NEW PROGRAM!!" 

565 PRINT 

570 PRINT "115 PRINT"Q$"WE CAN EVEN CHANGE IT"Q$ 

575 PRINT 

580 PRINT "LIST : REM EVEN MORE RECENT PROGRAM!!" 

585 PRINT "REM PAUSE TO LOOK AT NEW LISTING" 

590 PRINT "FOR X-l TO 8000:NEXT X" 

600 PRINT "SAVE EVEN MORE RECENT PROGRAM!!" 

610 PRINT "DELETE NEW PROGRAM!!" 

620 PRINT "CATALOG" 

630 PRINT D$"CLOSE DO'ER" 

640 PRINT : PRINT : INVERSE : PRINT "IT'S DONE!!!": NORMAL 
650 PRINT 

660 PRINT "YOUR APPLE'S READY TO DO'ER IT'S THING!" 

670 PRINT "ALL YOU HAVE TO DO IS TYPE" 

680 PRINT "EXEC DO'ER" 

690 PRINT “PRESS THE RETURN KEY, AND SIT BACK." 



